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I I 3 abstract 


Naval  Facilities  Engineering  Command 
Department  of  the  Navy 
Washington,  DC 


This  report  summarizes  the  third  phase  of  the  Integrated  Facilities  Require- 
ments Study  (IFRS). 

In  Phase  I,  two  analytic  submodels  were  developed.  The  first,  a Logistics 
Support  Requirements  Generator,  estimates  personnel,  aircraft,  and  fuel  requirements 
for  each  phase  of  undergraduate  pilot  training  at  the  Naval  Air  Training  Command 
(NATRACOM) . The  second,  a Pacing  Facilities  Requirements  submodel,  calculates 
facility  requirements  for  each  phase  of  training. 

The  purpose  of  the  Phase  II  study  was  to  develop  a preliminary  total  systems 
IFRS  management  planning  tool  (including  the  two  submodels  developed  in  Phase  I,  as 
well  as  Base  Loading,  Facilities  Excess/Deficiency,  and  Total  Cost  submodels),  and 
automate  the  model  so  that  it  provides  quick,  accurate,  and  relevant  information 
for  use  in  the  decision-making  process.  This  Static  IFRS  model  has  been  in  con- 
tinuous operation  since  March  1970. 

The  purpose  of  the  Phase  III  study  was  to  refine  the  Static  IFRS  model  and  to 
expand  the  IFRS  concept  by  developing  three  additional  planning  tools  for  use  by 
Navy  decision-makers  as  follows: 


. Dynamic  planning  tool 
. Optimization  model 
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. Fleet  Readiness  Training  Squadron  planning  tool. 

The  Dynamic  planning  tool  simulates  the  undergraduate  pilot  training  program 
on  a weekly  basis  whereas  the  Static  IFRS  assumes  an  even  annual  flow  of  students. 
The  Optimization  model  has  two  segments  - a PTR  Maximizer  that  calculates  the 
maximum  annual  pilot  training  rate  (PTR)  possible  for  a given  facilities  inventory 
and  a MCON  Minimizer  that  calculates  the  minimum  facility  cost  phase-to-base 
assignment  for  a desired  PTR.  The  Fleet  Readiness  Training  (FRT)  model  provides 
planning  information  for  the  readiness  training  squadrons  and  is  designed  similarly 
to  the  Static  IFRS  model.  The  Phase  III  documentation  consists  of  the  following 
four  reports: 

. The  Integrated  Facilities  Requirements  Study 
(IFRS)  Phase  III.  ORI  TR  645 

. Development  of  the  Automated  Dynamic  Model  for 

the  Integrated  Facilities  Requirements  Study  (IFRS) 

Phase  III,  ORI  TR  646 

. Development  of  the  Optimization  Model  for  the 
Integrated  Facilities  Requirements  Study  (IFRS) 

Phase  HI.  ORI  TR  647 

. Development  of  the  Fleet  Air  Readiness  Training 
Model  for  the  Integrated  Facilities  Requirements 
Study  (IFRS)  Phase  III,  ORI  TR  648. 

Changes  made  in  the  Static  Phase  II  model  during  the  Phase  III  study  are  docu- 
mented in  this  volume. 
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This  report  summarizes  the  third  phase  of  the  Integrated  r'acilities 
Requirements  Study  (II’RS) . It  has  been  prepared  for  the  Systems  Analysis 
Division  of  the  Office  of  the  Assistant  Commander  for  Facilities  Planning 
(CX:ide  20),  Naval  Facilities  Engineering  Command  (NAVFAC),  Department  of 
the  Navy,  as  part  of  Contract  N00025-G7-C-0031  (NBy-78672)  awarded  to 
Operations  Research,  Inc.,  in  June  1970. 

In  Phase  I,  two  analytic  submodels  were  developed.  The  first,  a 
Logistics  Support  Requirements  Generator,  estimates  personnel,  aircraft,  and 
fuel  requirements  for  each  phase  of  undergraduate  pilot  training  at  the  Naval 
Air  Training  Command  (NATRACOM).  The  second,  a Pacing  Facilities  Require- 
ments submodel,  calculates  facility  requirements  for  each  phase  of  training. 

The  purpose  of  the  Phase  II  study  was  to  develop  a preliminary  total 
systems  IFRS  management  planning  tool  (including  the  two  submodels  develop- 
ed in  Phase  I,  as  well  as  Base  Loading,  Facilities  Excess/Deficiency,  and 
Total  Cost  submodels),  and  automate  the  model  so  that  it  provides  quick, 
a^tqLirato,  and  relevant  information  for  use  in  the  decision-making  process. 
ThisS^atic  IFRS  model  has  been  in  continuous  operation  since  March  1970  . 

^ The  purpose  of  the  Phase  III  study  was  to  refine  the  Static  IFRS 
model  and  to  expand  the  IFRS  concept  by  developing  three  additional  planning 
tools  for  use  by  Navy  decision-makers  as  follows: 

• Dynamic  planning  tool 


• Optimization  rnodel^' 

• Fleet  Readiness  Tiaining  Squadron  planning  tool. 
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'The  Dynamic  planning  tool  simulates  the  undergraduate  pilot  training 
program  on  a weekly  basis  whereas  the  Static  Il'RS  assumes  an  even  annual 
flow  of  students.  The  Optimization  model  has  two  segments— a PTR  Maximizer 
that  calculates  the  maximum  annual  pilot  training  rate  (PTR)  possible  for  a 
given  facilities  inventory  and  a MOON  Minimizer  that  calculates  the  minimum 
facility  cost  phase-to-base  assignment  for  a desired  PTR.  The  ITeet  Readiness 
Training  (FRT)  model  provides  planning  information  for  the  readiness  training 
squadrons  and  is  designed  similarly  to  the  Static  IPRS  model.  The  Phase  III 
documentation  consists  of  the  following  four  reports: 

• The  Integrated  Pacilities  Requirements  Study 
qgRS)  J-hasc  HI.  ORI  TR  64^^ 

Development  of  the  Automated  Dynamic  Model  for 
the  Integrated  I'acilities  Requirements  Study  (IFItS) 

Phase  III,  ORI  TR  646^  ^ 

• \ Development  of  the  Optimization  Model  for  the 

Integrated  Facilities  Requirements  Study  (IFRS) 

Phase  III.  ORI  TP  ^ 

• -^Development  of  the  Fleet  Air  Readiness  Training 

Model  for  the  Integrated  Facilities  Requirements 
Study  (IFRS)  Phase  III,  ORI  TR  648. 

Volume  I of  this  report,  TR  645,  contair^^  summary  of  the  three  IFRS 
phases.  Changes  made  in  the  Static  Phase  II  modeYduring  the  Phase  III  study 
are  documented  in  Voiume  II. 


These  IFRS  models  were  developed  and  programmed  by  the  staff 
members  of  the  Economic  Analysis  Division  of  Operations  Research,  Inc.  , 
under  the  direction  of  Dr.  Wiiliam  J.  Leininger,  vice  president  and  division 
director,  and  Thomas  N.  Kyle,  program  director.  The  project  team  members 
included  R.  J.  Craig,  M.  C.  Fisk,  W.  Liggett,  F.  McCoy,  R.  Mcssalle, 
and  R.  Yockman. 

Mr.  Dennis  Whang  of  the  Systems  Analysis  Division  of  Facilities  Plan- 
ning was  contract  monitor  for  NAVFAC.  In  addition,  valuable  assistance  was 
provided  by  many  other  Navy  personnel  including,  in  particular,  those  in  the 
Office  of  the  Staff  Civil  Engineer  and  the  Training/Plans  Division  of  the  Naval 
Air  Training  Command,  the  Aviation  Training  Division  of  the  Chief  of  Naval 
Operations,  and  in  the  Systems  Analysis  Division  of  NAVFAC.  The  authors  grate- 
fully acknowledge  the  contributions  made  by  all  of  these  people  to  the  develop- 
ment of  the  IFRS  models. 
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1.  INTRODUCTION 


I'URPOSL 

1 .1  The  purpose  of  this  manual  is  to  document  the  programming  and  data 

file  changes  made  to  the  Static  ITRS  model  under  the  Phase  III  contract.  Several 
print  changes  and  new  features  were  suggested  by  users  as  well  as  by  ORI.  Primarily 
the  requests  were  to  shorten  the  running  time  by  consolidating  printouts  and 
reducing  data  input  requirements.  Most  of  the  desired  changes  were  completed. 
Those  changes  requiring  extensive  programming  changes  were  not  completed  at 
this  time . 

ORGANIZATION  OP  MANUAL 


1 .2  This  manual  is  divided  into  several  sections: 

• A sample  run  of  the  new  Static  Il’RS  model  showing 
the  new  features 

• Current  pilot  training  planning  factor  data  files  for 
1970-1971 

• The  NI'O  training  pipeline  and  related  data  files 

• Programming  changes  and  listings. 

1 .9  Lven  though  the  sample  run  in  the  next  section  of  this  manual  provides 

a ((uick  introduction  to  the  Static  Il’RS  model  , it  is  assumed  that  the  user  is 
familiar  with  the  previous  version  of  IPRS  (i.e.  , Phase  II  model)  and  its  user's 
and  programmer's  manuals.!/ 

\J  The  Phase  II  Static  IPRS  is  documented  in  ORI  Technical  Report  5H3,  Develop- 
ment of  a Preliminary  Automated  Total  Systems  Model  for  the  Integrated  I'acilitic 
Requirements  Study  (IPRS)  Phase  H , 9 Pebruary  1970.  Volume  HI  is  the  User's 
Manual  and  Volume  IV  is  the  Programmer's  Manual. 

1 


IT 


1 .4  This  manual  is  a supplement  to  the  previous  user's  and  programmer's 
manual.  y It  is  not  intended  to  replace  them.  To  get  the  most  utility  from 
this  manual  the  reader  should  familiarize  himself  with  and  refer  to  the  other 
manuals  as  necessary. 


y 


Ibid. 
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II.  STATIC  IFRS  SAMPLE  RUN  ILLUSTRATING  NEW  PRINT  CHANGES 

OF  PHASE  III 


INTRODUCTION 

2.1  The  purpose  of  this  section  is  to  discuss  the  present  Static  IFRS  sample 
run  shown  in  Table  2.1  (at  the  end  of  this  section)  and  point  out  the  features 
added  to  the  Phase  II  IFRS  model  under  the  Phase  III  study.  The  parenthetical 
numbers  on  the  right-hand  side  of  this  table  correspond  with  the  paragraph 
numbers  in  this  section. 

LSR  Level  of  Complexity 

2.2  The  level  of  complexity  question  and  the  results  of  the  options  are 
new.  The  results  of  the  various  options  are  listed  as  follows: 

j 

• Level  1 . This  option  asks  the  user  a limited  set 

of  questions  in  the  LSR  module  section  of  the  model 
and  therefore  provides  a limited  set  of  printouts . 

Its  primary  purpose  is  to  let  the  experienced  user 
rapidly  calculate  the  resource  requirements  for  a 
given  PTR.  The  main  reduction  in  printouts  occurs 
because  the  student  statistics  are  not  printed  for 
each  pipeline.  Also  the  user  cannot  constrain  the 
LSR  results. 

• Level  2 . This  option  is  designed  for  the  user  who 

needs  more  detail  and  flexibility.  The  printouts  i 

and  set  of  questions  and  options  are  similar  to  the 
level  of  Phase  II.  Level  2 differs  from  level  1 in 
that  more  questions  are  asked  and  printouts  offered. 

The  sample  run  in  Table  2.1  is  for  level  2. 

• Leve'  3 3 and  4 . These  are  the  same  as  in  IFRS  II. 
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Select  Pilot  or  NTO  Option 

2.3  The  user  has  the  option  to  indicate  to  the  model  whether  or  not  the 
pilot  or  NI'O  training  system  (i.e.  , data  files)  is  to  be  considered  in  his 
analysis.  A discussion  of  the  NI'O  options  is  contained  in  Section  IV  of  this 
manual.  Essentially  all  the  features  of  the  LSR  module  are  the  same  for  the 
pilot  and  the  NEO  system.!/ 

Simple  Constraint  Eeature 

2.4  The  simple  constraint  calculation  feature  allows  the  user  rapid  access 
to  student  output  and  resource  requirements  within  a given  phase.  By  entering 
any  one  of  student  output,  number  of  aircraft,  annual  flight  hours,  aircraft 
operating  cost,  number  of  flight  instructors,  or  number  of  enlisted  men,  the 
related  five  values  are  calculated  and  printed.  These  calculations  are  based 

on  only  the  first  aircraft  type.  This  provides  management  with  planning  informa- 
tion for  each  training  phase.  In  Table  2.1  , the  sample  response  is  yes  (a  no 
response  takes  the  user  to  the  pipeline  section  of  the  f,SR  module). 

2.5  To  illustrate  the  use  of  this  feature,  assume  the  user  initially  wants 

to  consider  phase  7 which  has  an  assumed  cost  per  flight  hour  of  $200.  The  user 
first  enters  this  data  as  7,200.  The  model  then  prints  the  phase  name.  Next, 
the  user  enters  the  constraint  option,  that  is  the  item  number  (reference 
number)  of  the  planning  factor.  In  this  case  the  user  wants  to  determine  the 
student  output  based  on  the  availability  of  100  aircraft.  Since  the  item  number 
is  2 for  the  number  of  aircraft  and  he  has  100  aircraft,  he  enters  2,100  to 
indicate  this.  The  model  then  prints  out  the  maximum  student  output  and  the  other 
related  resources.  Eor  instructors  the  value  also  includes  those  under  training. 

2.6  Assume  there  are  only  100  flight  instructors  available  for  the  same 
phase,  therefore  the  user  enters  5,  100  (5  is  the  item  number  for  flight  instructors). 
The  model  prints  out  the  other  five  values.  Next  the  user  enters  0,0  to  indicate 

no  further  calculations  for  this  phase. 

2.7  The  user  next  enters  8,175  indicating  phase  8 is  to  be  considered  and 
its  assumed  cost  per  flight  hour  is  $175.  Then  the  user  wants  to  see  the  resource 
requirements  for  200  graduating  students  and  thus  enters  1 ,200.  The  related 
resource  requirements  are  printed  as  shown.  The  user  then  wants  to  see  how 
many  students  can  be  supported  by  90  aircraft  and  he  enters  2,90  and  the  6 values 
are  again  printed. 

2.8  The  user  enters  0,0  to  indicate  no  further  calculations  for  this  phase. 
Then,  when  the  program  requests  a new  phase  and  cost,  the  user  again  enters 
a 0,0  to  indicate  he  is  finished  with  the  simple  constraints.  At  this  point  the 
user  can  hit  the  BREAK  key  to  stop  the  program  and  sign  off  or  can  continue 
into  the  normal  ESR  module  setup. 

^ A new  feature  necessitated  by  I'he  NEOs  is  that  a pipeline  now  can  have  a 
maximum  of  six  following  phases. 
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Pipeline  Instructions 


2.9  This  instruction  tells  the  user  how  to 

• Print  or  skip  the  student  statistics  for  a (pipeline) 
student  source. 

• Completely  skip  a (pipeline)  student  source. 

Instead  of  using  0,0  to  indicate  no  further  data,  now  the  user  can  also  indicate 
his  print  option.  Note  that  this  instruction  only  partially  applies  to  level  of  com- 
plexity 1 , since  the  student  statistics  for  each  student  type  are  never  printed 
in  level  1 . This  instruction  is  not  printed  for  level  of  complexity  number  1 . The 
results  of  a 0,0  entry  are  shown  in  the  sample  printout. 

2. 10  This  printout  shows  the  use  of  the  0,1  indicator  option  which  suppresses 
the  student  summary  by  student  types.  For  the  0,2  option  the  0,2  is  typed  as 
the  first  response.  This  is  not  illustrated  in  this  sample. 

LSR  Summary  Printouts 

2.11  Student  Summary.  This  is  the  student  summary  printout  for  all  student 
types.  Note  that  the  student  load  now  appears  with  the  other  student  data. 

2.12  Manpower  Summary.  This  printout  contains  the  required  instructor, 
officer  and  enlisted  men  for  all  students  sources.  Academic  instructors  are  no 
longer  printed  even  though  the  equations  are  still  in  the  model. ^ 

2.13  Aircraft  Summary.  This  is  the  aircraft  information  provided  for  each  phase. 
Note  that  gallons  and  flight  hours  are  in  thousands.  Also  the  MO  factor  is  the 
factor  contained  in  the  data  file.  The  number  of  aircraft  required  is  printed  to 

one  decimal  place  as  requested  by  the  user. 

Phase  II  LSR  Constraint  Option 

2.14  The  option  to  constrain  the  LSR  output  has  been  corrected  and  modified. 
Now  the  user  can  run  a sequence  of  constraints  and  find  which  is  most  constraining, 
then  print  a new  summary.  Note  that  these  constrained  values  are  not  used  in 

the  runway  and  airspace  calculations  unless  the  new  constrained  PTR  is  entered 
into  the  LSR.  The  sample  illustrates  the  following  example  for  phase  7 . 


Required 

Constraint 

Aircraft 

153 

140 

Instructors 

150 

130 

Enlisted 

1,128 

1,000 

I 


1/  By  making  a minor  change  in  program  LSR3,  the  academic  instructor  informa- 
tion can  be  printed  in  the  aircraft  section. 
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The  model  then  indicates  that  the  instructors  are  the  constraint  and  the  final 
summary  shows  the  related  requirements. 

Runway  .and  Airspace  Printout 

2.15  The  user  now  has  the  option  to  skip  the  runway  and  airspace  printout. 
Standard  Phase-to-Base  Assignment 

2.16  The  user  can  now  use  a standard  phase-to-base  assignment.  This  is 
a very  flexible  feature.  The  standard  phase-to-base  allocation  is  stored  in  the 
file  PHABA*.  The  user  can  type  out  the  new  file  on  paper  tape  and  store  it  in 
the  machine  before  he  runs  the  Static  IFRS  model.  Note  that  if  the  model  finds 
an  error  in  any  line  of  data  in  the  file,  that  line  will  not  be  printed  or  used. 

The  error  will  be  indicated  later,  since  the  phase  will  not  be  completely 
assigned. 

2.17  If  the  user  wants  to  change  a few  phase-to-base  assignments,  he  has  an 
an  option  to  correct  or  modify  the  standard  phase-to-base  assignment.  How- 
ever, when  a new  phase-to-base  assignment  is  made, the  old  assignment  must 

be  deleted.  The  model  will  detect  the  error  later  if  it  is  not  deleted.  The 
sample  shows  changing  phase  2 from  NAS  Pensacola  to  NAS  Corpus  Christ! . 

(Note;  This  on-line  change  does  not  permanently  affect  the  standard  assign- 
ment in  file  PHABA* .) 

Detailed  Base  Loading  Printout 

2.18  The  question  to  skip  the  detailed  base  loading  data  printout  has  been 
changed  to  require  a yes  answer. 

Print  Level  1 for  New  Total  Systems  Cost  Printout 

2.19  For  level  of  print  detail  number  1 , the  user  now  gets  the  operations  and 
maintenance  (O&M)  cost  summary  with  the  total  system  costs. 

Cost  Subtotals 

2.20  The  O&M  cost  as  well  as  aircraft  investment  cost  subtotals  are  now 
printed  as  shown. 


TABLE  2 . 1 
SAMPLE  RUN 


FNTKR  LFUEL  OF  COMPLEXITY 

1 LIMITED  DATA  I NPITT/OUTPUT  - NO  ADJUSTMENTS  OP  MODIFICATION 
P DETAILED  INPUT/OUTPUT  - OPTION  TO  CONSTRAIN  LSR  OUTPUT 

0 MODIFY  PHASE  DATA 

/|  COMP  INF.  OPTIONS  P AND  3?P 

ENTER  TRAININfi  WEEKS  PER  YEAR 

AND  ANNFfAL  FLY-DAYS  ( XX  . >XXX  . ) 750 * 2A5 

ENTER  TRAINING  FLOW  NO. 

1 FOR  PILOT*  P FOR  NFO.  (X)?l 

PRINT  LIST  OF  TRAINING  PHASES  (Y*N)7N 
T.RY  SIMPLE  CONSTRAINTS  (Y*N)?Y 


SIMPLE  CONSTRAINT  CALCtlLATI  ONS 

THE  CONSTRAINT  OPTIONS  ARE; 

1 STUDENT  OUTPUT 
NO.  OF  A I PC'- AFT 
.3  FLIGHT  HRS  (IN  THOUSANDS) 

A COSTCIN  THOUSANDS)  FOP  FLYING 
S FLIGHT  IN.STI.UCTOILS 

A FNI.ir.T.  MAINT.(M.O.  X NUMP.  AIRCRAFT) 

FNTFR  0,0  FOR  NO  FURTHER  CONSTRAINTS  01?  CALCULATIONS 


ente;  phase  no.  to  pe  constrained  and 

COST  PEF:  FLIGHT  HOtIR  ?7,PO0 

ih{Asf:  adv  jet-tf 


ENTER  CONSTIAINT  OPTION  AND  WALUE(X,XXX . ) ?P, 1 00 


STUDS  OUT 
A/C  REOED 
FLT.  HRS. 

flt.  cost 

FLT. I NS TP 
ENL.MAINT 


P93.P1 
100.00 
AO.  11  XI 000 
IPOPl .AA  XIOOO 
110.11 
70S .00 
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AK’OTHFP  CON'LTHAIM  OPTION  AND  VALUE?5,10n 


STUDS  Ot^T 
A/C  PF'''FD 
FLT.  HI.S. 


FI.T.INSTR 

FNL.NAINT 


266  .28 
90.81 

5A.59  XI 000 


FLT.  COST  10917.A6  ”1000 


100  .00 

667.  A9 


ANOTHFP  CONSTRAINT  OPTION  AND  UALUF70.0 

FNTFP  PHASF  NO.  TO  DF  CONSTRAINED  AND 
COST  PFP  FLIGHT  HODi;  ?8,17S 

PHASE:  ADV  JFT-TA 

ENTER  CONSTl'AINT  OPTION  AND  UALUE(X>XXX  . ) ?1 ,200 


STUDS  OUT 
A/C  PFOFD 
FLT.  HRS. 
FLT.  COST 
FLT.INSTR 
FNL.MAINT 


200.00 

80.02 

39.00  XIOOO 
682S.00  XIOOO 
71.51 
A50.18 


ANOTHER  CONSTRAINT  OPTION  AND  VALUE ?2, 90 


STUDS  OUT 
A/C  RFPFD 
FLT.  HPS. 


FLT.INSTPi 

FNL.MAINT 


299.88 
90  .00 

58. A8  XIOOO 


FLT.  COST  10233. A1  XIOOO 


107.23 
675  .00 


ANOTHER  CONSTRAINT  OPTION  AND  VALUE ?0,0 


ENTER  PHASE  NO.  TO  RE  CONSTRAINED  AMD 
COST  PER  FLIGHT  HOUR  ?0,0 
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PHI  NT  ALL  PIPELINES  (Y,N)?N 

FOi:  THE  TRAINING  PIPELINES 

AFTER  ENTEi'ING  THE  DATA  - ENTER 

0,0  FOR  PIPELINE  COMPUTATION  AND  PRINT  OUT 

0,1  FOR  PIPELINE  computation  - NO  PRINT  OUT 

0,0  FOR  NO  COMPUTATION  - SKIP  TO  NEXT  PIPELINE 


FO-  pipeline:  NAW  OFFICER 

ENTER  PHASE  NUMDEI:  AND  STUDENT  OUTPUT  ('/'/, XXXX  .)  ?7,  1 PO 

NE:-'T?P,Pr!0 

NEVT?1 1 ,POS 

NE'-'T?!  S,000 

^’E'■•T?0,0 


STUDENT  TYPE!  NAVY  OFFICER 


.STUDENT  STATISTICS. 


TRAINING  PHASE 

INPUT 

OUTPUT 

ATTRITES 

FNVIRO  INDOC 

10,03. 

loop. 

01  . 

PRIMARY 

loop . 

9 ftp  . 

AO. 

PASIC  JET -A 

A57. 

AP9. 

P7. 

PASIC  JF,T-n 

AP9. 

A17. 

13. 

H-JET  G/CO 

A 17. 

AlP  . 

A. 

ADV  JET-TF 

IPA. 

IRO. 

ft. 

^DU  JET-TA 

PP7. 

PPO  . 

7 . 

PASIC  PROP 

P69  . 

PPP  . 

AO. 

’^-PROP  CP 

PPP. 

PP7. 

1 . 

ADV  Pi 'OP 

PP7. 

PP5. 

P. 

PASIC  HELO 

P36. 

POO. 

33  . 

PHE  HELO 

P03. 

POP. 

1 . 

HELO  PRIM 

POP. 

POl  . 

1 . 

HELO  ADV 

POl  . 

POO. 

1 . 
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FOP  PIPELUJE:  NAVY  - AOC 

ENTER  PHASE  NT'NPFP  AND  STtiPENT  OUTP^'T  (vv^  vwv , ) 77,  j pri 

NE/T?8jPRn 

NEyT?l 1 * PP5 

NEXT?15>Pno 

NEXT70, 1 


FOR  PIPELINE:  MARINE 

ENTER  PHASE  NtlKnER  AMD  STTIDEMT  OUTPUT  (yX#>'Xy'' . ) ?7>90 
NEXT7R, 1 10 
NE:<T715#30n 
NEXT  70,  1 


FOP  PIPELINE:  C-OPP  « FOP. 

ENTER  PHASE  NUMOEP  AND  STUDENT  OUTPUT  f X'',  XXXX  . ) 7 1 1 , 1 00 

^JE:CT715,50 

NEXT70,  1 


■C'jULia  uawsan^ 


TABLE  2.1  (Cont) 


TOTAL  FOr:  ALL  STUDENT  TYPES 


TPAINING  PHASE 

.STUDENT  STATISTICS. 

INPUT  OUTPUT  ATTPITES 

STUDENT 

LOAD 

AOC  SCHOOL 

12R5. 

1 1R3. 

103. 

2A6.R 

EMU I no  INDOC 

1R07. 

1 763  . 

A3. 

17R.5 

PR 1 MARY 

P.9A6, 

270R  . 

23R. 

339.3 

PASIC  JET-A 

1152. 

107R. 

7A. 

267.6 

BASIC  JET-B 

107R. 

1050. 

2R. 

1 70.2 

n-JET  G/CQ 

1050. 

1035. 

15. 

125.1 

ADR  JET-TF 

A6fi . 

A 50. 

16. 

1R3.2 

ADR  JET-TA 

569  . 

550. 

19. 

223  .9 

BASIC  PROP 

675. 

560. 

115. 

23A.7 

B-PPOP  CO 

A 60. 

A 57  . 

3. 

36.7 

ADR  P)?OP 

557. 

550. 

7. 

1PR.2 

BASIC  HELO 

RRl  . 

761  . 

120. 

295.5 

F-’E  HELO 

761  . 

757. 

A . 

75.9 

HELO  PRIM 

757. 

75A. 

A. 

60  .A 

HELO  ADR 

75A  . 

750. 

A . 

120.3 

(2.11) 
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♦ELICHT 

I^STHUCTOi^S* 

LSO 

APMl  E 

TOTAL 

TOTAL 

Til'^ir’Uin  PH^SE 

EFFECT 

HIT 

TOTAL 

REOMT 

OFE 

OEE 

EML 

AOC  SCHOOL 

0 . 

0 . 

0 . 

0. 

7. 

7. 

0. 

ENvino  iKnoc 

n. 

0 . 

n . 

0 . 

5 . 

5 . 

0 . 

PRIMAI:Y 

1 37  . 

1 1 . 

1A9. 

0. 

PI  . 

1 70  . 

3PP. 

PASIC  JET- A 

1P9  . 

1 1 . 

1 39  . 

n . 

P5. 

16A  . 

60  A . 

PASIC  JET-P 

lOP. 

R . 

110. 

n . 

P6. 

13  6. 

R1  6. 

P-JET  fi/CO 

A5. 

A . 

A9  . 

R . 

19  . 

76. 

50  7. 

APV  JET-TF 

150. 

IP  . 

169. 

0 . 

3P  . 

POl  . 

1 PA  1 . 

APP  JET-TA 

175. 

PP  . 

197  . 

0. 

3A. 

P30. 

1 3 6P  . 

PASIC  prop 

9A  . 

R . 

lOP  . 

0 . 

PI  . 

1P3  . 

ARl  . 

P-PPOP  CO 

6. 

1 . 

7 . 

A . 

/|  . 

lA. 

7A  . 

''PV'  PROP 

103. 

13. 

116. 

0. 

P7. 

1 A3  . 

RA5. 

PASIC  HELO 

1?3. 

10. 

1 33  . 

0. 

P6. 

1 59  . 

6PR  . 

Pr’E  HELO 

P7  . 

P . 

P9. 

0 . 

7. 

36. 

1P9. 

HELO  PPIM 

30. 

3 . 

33. 

0 . 

6 . 

39  . 

97. 

HEl.n  APV 

70. 

0 . 

P3  . 

0 . 

19. 

101  . 

AA9. 

* A I PC 

i!AET* 

FHEL 

CALLONS 

A^■N/HP.S 

NO 

THAI  Ml  NC,  PHASE 

TYPE 

NO. 

TYPE 

- - (000> 

- 

FACT. 

AOC  SCHOOL 

n . 

0 . 

0 . 

0 . 

EN'VIRO  INDOC 

0. 

0. 

n. 

0 . 

Pi  INAPY 

T3AP 

109.7 

ACAS 

1 1 IP. A 

RP  .3 

P.6 

PASIC  JET -A 

T-PA 

100.5 

JP-A 

P1PP7.5 

70  .P 

5.5 

PASIC  JET-P 

TPPC 

103.6 

JP  -A 

PA6P0.7 

6 7.6 

7.P 

P-JET  C/CO 

TPPC 

59  .A 

JP-A 

1 1600.P 

3 1 . P 

7.R 

APV  JET-TF 

TF9  J 

1 53.5 

.n’-A 

530A3.7 

9P  .P 

7.  A 

AP\^  .JET-TA 

TAA  J 

165.1 

JP-A 

50A07 .5 

1 07  .P 

7.5 

P6SIC  prop 

TPPC 

101  .3 

ACAS 

3607  .P 

71  .A 

A .3 

P-PPOP  CO 

TPPC 

11.3 

ACAS 

3A6.1 

6 .9 

5.5 

APU  PliOP 

TSPA 

P6  .A 

ACA.S 

6577.5 

6P  . 1 

P.9 

PASIC  HELO 

TPPC 

1 3P  . 1 

ACAS 

A705 .3 

93  .P 

A . 3 

•,'PE  HEI.O 

TPPC 

PP.A 

ACAS 

R9R  .A 

17. P 

A .P 

HFLO  Pi  IE 

TH57 

P6.9 

ACAS 

PP9  ,R 

IP  .P 

3 .O 

HELO  APV 

THIL 

67. P 

JP-A 

AP75.0 

AP.7 

A .0 

12 
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DETAILED  LSR  OUTPUT  DESIRED  FOR  ALL  PHASES(Y,N) ?N 
A^’Y  LSR  OUTPUT  CONSTRAINTS  (Y*N)?Y 


ITtlCH  PHASE  (XX)  ?7 


NAME  OF  PHASE:  ADV  JET-TF 
STUDENT  INPUT  A66. 

STUDENT  OUTPUT  A50. 

AVERAGE  STUDENT  LOAD  1R3.2 
ADMINISTRATIVE  OFFICERS  3S. 
TOTAL  OFFICERS  POl. 

TOTAL  ENLISTED  12A1. 

AIRCRAFT  TYPES  TF9J 

NitMBER  REPUIRED  153. 

FUEL  TYPES  JP-A 

GALLONS  CONSUMED  0.530E+0R 
FLIGHT  INSTRUCTORS  150. 

UNDER  TRAINING  19. 

LSO  REQUIREMENTS  0. 

ENLISTED  SUPPORT  112R. 


SELECT  APPROPRIATE  FIELD  AND  ELEMENT  (XjX) 

1 AIRCRAFT 

2 FLIGHT  INSTRUCTORS 

3 ENLISTED  SUPPORT 

A ACADEMIC  I NSTRUCTORS ? 1 , 1 

ENTER  CONSTRAINING  VALUE  ( XXXX .XXX ) 7 1 AO 


(2.14) 


OLD  STUDENT  OUTPUT  A50. 
CONSTRAINED  OUTPUT  AlO. 
ADDITIONAL  CONSTRAINTS  (YjN)?Y 


SELECT  APPROPRIATE  FIELD  AND  ELEMENT  (X#X)?2,1 

ENTER  CONSTRAINING  VALUE  (XXXX .XXX) ? 1 30 

OLD  STUDENT  OUTPUT  AlO. 

CONSTRAINED  OUTPUT  3A6. 
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ADDITIONAL  CONSTRAINTS  <Y,N)?Y 

SELECT  APPROPRIATE  FIELD  AND  ELEMENT  (X>X)?3j1 

ENTER  CONSTRAINING  VALUE  ( XXXX .XXX ) ? 1 000 

VALUE  IS  NOT  CONSTRAINING 
ADDITIONAL  CONSTRAINTS  CYjN)?N 

NEW  LSH  SUMMARY  FOR  ADV  JET-TF  (Y,N)?Y 


NAME  OF  PHASE:  ADV  JET-TF 
STUDENT  INPUT  35R. 

STUDENT  OUTPUT  346. 

AVERAGE  STUDENT  LOAD  140.9 
ADMINISTRATIVE  OFFICERS  2P  . 
TOTAL  OFFICERS  158. 

TOTAL  ENLISTED  955. 

AIRCRAFT  TYPES  TF9J 

NUMBER  REQUIRED  118. 

FUEL  TYPES  JP-4 

GALLONS  CONSUMED  0.40RE+0R 
FLIGHT  INSTRUCTORS  116. 

UNDER  TRAINING  14. 

LSO  REQUIREMENTS  0. 

ENLISTED  SUPPORT  868. 


(2.14) 

(Cont) 


ANOTHER  PHASE  CONSTRAINED  (Y,N)?N 
REVISE  LSR  TO  INCLUDE  CONSTRAINTS  (Y*N)?N 
GENERATE  ANOTHER  LSR  (Y,N)?N 
PRINT  RUNWAY  AND  AIRSPACE  FACTORS  CY^N)?N 


(2.15) 
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USE  THE  STANDARD  PHASE  TO  BASE  ALLOCATI ON(Y,N) ?Y 
STANDARD  ALLOCATION 


ASE 

BASE  PERCENT 

1 

PENS 

1 .00 

2 

PENS 

1 .00 

3 

SAUF 

1 .00 

A 

MERI 

1 .00 

5 

MEPI 

1 .00 

6 

PENS 

1 .00 

7 

CHAS 

1 .00 

8 

KING 

1 .00 

9 

vmiT 

1 .00 

10 

SAUF 

1 .00 

1 1 

CORP 

1 .00 

12 

WHIT 

1 .00 

13 

PENS 

1 .00 

1 A 

ELLY 

1 .00 

15 

ELLY 

1 .00 

ANY  CHANGES  OR  COnRECTI ONS (Y,N) ?Y 

♦CAUTION:  IE  YOU  REASSIGN  A PHASE,  YOU  MUST 
♦DELETE  OR  CHANGE  THE  OLD  ASSIGNMENT. 

♦CTO  DELETE  ENTER  0.0%) 

PHASE  ALLOCATION!  ASSIGN  EACH  PHASE  AS-- 
II,AAAA, .XX 

vmERE:  II  = PHASE  (2  DIGITS);  AAAA  = BASE  CODE) 
.XX  = PERCENT  AT  BASE  Cl.O  = 100%) 

BASE  CODES:  CHAS  CORP  ELLY 
KING  MERI  PENS 
SAUF  WHIT  PHAN 

II  = 0 TO  TERMINATE! ?02, PENS, 0.0 
NEXT?02,C0RP, 1 . 

NEXT70 


(2.16) 


(2.17) 


! 
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SKIP  DETAILFD  PAGE  LOADING  DATA(Y,N)?Y  > (2.18) 


'1A.sk  loading  .SONHAl.Y 

♦PFi  GONNEL  *Air.CnAFT  *FUEL 


STD. 

DA 

SE  T( 

DIALS  • 



------ 

M] 

[LLI ON 

GAL  . 

NAf 

LOAD 

PHASE 

NAS 

OFF 

ENL 

CIV 

TOTAL 

TYPE 

NO. 

TYPE 

AMOUNT 

CUAS 

1R3. 

16P5. 

939. 

056. 

IPOl  . 

30A  . 

0 56A  . 

TF9  J 

153. 

JP-A 

53. OA 

COI  P 

367. 

1360. 

P35P. 

/1 75  . 

0P07. 

57PA  . 

9A33  . 

TSOA 

R6. 

A GAS 

6.5R 

FI.LY 

IRl  . 

P66. 

7A3. 

IPA. 

1035. 

010. 

1609. 

TH57 

07. 

A GAS 

0.03 

THIL 

6R  . 

JP-A 

A .P7 

KING 

RPA. 

1 P 1 6 . 

9P9. 

090. 

19A0. 

350. 

0P05. 

TA/iJ 

1 65. 

JP-A 

50. A1 

MERI 

A3R. 

P15P. 

lOPl  . 

379. 

OOAl  . 

396. 

305A  . 

T-2A 

101  . 

JP-A 

A 6 . 5 1 

Tone 

lOA  . 

PENS 

AAP. 

ISOA. 

2R05. 

7P3. 

0P35. 

7667. 

1 1 733  . 

Tone 

59. 

JP-A 

11.60 

TORC 

00  . 

AGAS 

0.90 

.SAUE 

376. 

956. 

766. 

036. 

P9A  . 

017. 

1 700  . 

T3AB 

1 10. 

A GAS 

1 .A6 

TORC 

1 1 . 

'.•.'HIT 

530. 

1901  . 

10S7. 

353. 

1707. 

3P0  . 

0993. 

TORC 

033  . 

AGAS 

R.31 

I'.F.ALLOCATF,  PHAGES ( Y> N ) ?N 

AI'I.SPACF  FACT0P5  R OT.F  PFOUI  PFNENT.S : 

■SKIP  PiilNTODT  (Y,N)?Y 

DO  YOU  V/ANT  TO  SKIP  HUNUAY  REQUIREMENTS  OUTPUT  (Y,N)?Y 

TOTAL  RUNUAY  INVESTMENT  FOR  CURRENT  YEAR  (THOU.S.); 

0. 
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VrHICH  LEVEL  OE  Pi 'I  NT  DETAIL 

TYPE  1 FOP  0/iM  C053T  SUM.  R TOTAL  SYSTEM  COST(TSC)  ONLY  f 

2 EOH  TSC  .‘i  DETAILED  FACILITIES  EXCESS -DEFI C I ENCY 

3 FOP  TSC  P.  MAS  COST  SUMMARIES  ONLY 
A FO;  TSC  R FACILITIES  DEFICITS  R NAS  COST  SUM. 

5 FOR  CHOICE  OF  DETAILS  (IF  DESIRED)?! 

ACCEPT  SnnSTANDARD  FACILITIES  (Y,N)?Y 

•SAME  OPTION  FOl?  ALL  RASES  (Y»N)?Y 

STIMMARY  0 R M COST 


NAS. 

MILITARY 

A/C  FUEL 

A/C  0AM 

BASE 

PA  A 

TOTAL 

TOTAL 

SUPPORT 

TOTAL 

CHAS 

16006.3 

6804.1 

2388  .4 

3563.5 

28762 .3 

co!-;p 

21632.3 

1626.4 

1013.9 

11344.4 

35616.9 

ELl.Y 

10393.2 

643.2 

469.7 

2481 .7 

1 3987.7 

KING 

17695. r< 

6469.3 

4041  .2 

3835.9 

32042.2 

r-TTPil 

21A15.5 

5974.1 

2029.5 

4345.1 

33764.2 

PENS 

26R63.P 

2555 . 1 

627.5 

13948.9 

43995.4 

S'ATIF 

12011.1 

309.1 

266.5 

2609.6 

15196.4 

'■'HIT 

19R5A.6 

1443.8 

1903.0 

4048.8 

2 72  50.2 

TOTAL 

145872 .6 

25825.2 

12739.6 

46177.8 

230615.2 

TOTAL  S 

YSTEMS  COST  = 

FACILITY  INVESTMENT 

COSTS 

+ A/C 

INVESTMENT 

+ 0 R 

M COSTS  (LESS 

NON  ADD  ITEMS) 

+ CNATRA,  CNADATRA, 

CNAVANTP.A 

FIXED 

COSTS 

0237.2 

DO  YOU 

WISH  TO  RETURN 

TO  EXCESS 

-DEFICIENCY 

PROGRAM 

(Y,N) ?Y 

TYPE  LEVEL  OF  PRINTING  DETAIL  (l-5)?5 

EXCESS  DEFICIENCY  PROGRAM 

ACCEPT  SnPSTANDAPD  FACILITIES  (Y*M)?Y 

SAME  OPTION  FOR  ALL  RASES  (Y>N)?Y 


MAS--CHAS 

DETAILED  EXCESS-DEFICIENCY  CY,N)?N 


I NAS--COi!P 

' DETAILED  EXCESS -DEFI C I ENCY  (Y>N)?N 

I 


(2.19) 


} (2.20) 


I 
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NAT. --ELLY 

DETAILEn  EXCEni'-DEFIClENCY  (Y^F>?r’ 


NAS — KING 

DETAILED  EXCESS -DEFI C I ENCY  (Y*N>?t! 


NAS --ME'-:  I 

DETAILED  EXCESS-DEFICIENCY  (Y*N)?N 


NAS — PENS) 

DETAILED  EXCESS-DEFICIENCY  (Y>N)?N 


NAS — SAUF 

DETAILED  EXCESS-DEFICIENCY  (Y*N)?N 


^;,/^S__^^HIT 

DETAILED  EXCESS -DEFI C I ENCY  (Y,N)?N 
DO  YOtJ  V.’ISH  TO  MODIFY  THE  SUDSTANDARD  OPTION  (Y*N>  ?N 


INVESTMENT  COST  (THO’TSANDS 

OF  DOLLARS) 

MAS — CHAS 
FACILITIES 

DETAILED  BREAKDOWN  (Y^N)?N 


BASF.  TOTAL  P7/13.1 
NAS--COFP 
FACILITIES 

DETAILED  BREAKDOWN  (Y>N)?N 


BASE  TOTAL  125.1 


TABLE  2.1  (Cont) 


NAS — ELLY 
FACILITIES 

DETAILED  BREAKDOWN  (Y>N)?N 


BASE  TOTAL  3S02.A 
NAS — KING 
FACILITIES 

DETAILED  BREAKDOWN  (YjN)?N 


BASE  TOTAL  1870.0 
NAS--MERI 
FACILITIES 

DETAILED  BREAKDOWN  CY^N)?N 


BASE  TOTAL  13636.1 
NAS--PENS 
FACILITIES 

DETAILED  BREAKDOWN  (Y,N)?N 


BASE  TOTAL  175.0 
NAS--SAIJF 
FACILITIES 

DETAILED  BREAKDOWN  (Y^N)?N 


BASE  TOTAL  2572.5 
NAS--”HIT 
FACILITIES 

DETAILED  BREAKDOWN  (Y>N)?N 


BASE  TOTAL  19A6.5 
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NAS  TOTAL 

YFA!  1970  S6P69.R 

np^TAILFD  A/C  ASSET  POSITION  INVESTMENT  (Y,N)?Y 

A/C  INVESTMENT  P.  ASSET  POSITION CNATRA 

ASSET  POSITION  COSTS  CTHOtJS.) 


A/C 

AVAILABLE 

REO'D 

DEFICIT 

FLYAVJAY 

SUPPORT 

TOTAL 

T3AB 

150. 

1P6. 

0. 

0. 

0. 

0 

TP.HC 

. 

307. 

0. 

0 . 

0 . 

0 

T-PA 

1 lA. 

lie. 

R. 

963. 

lAA  . 

1 107 

TPPC 

17R. 

IBR. 

10. 

5700. 

R56. 

6565 

TF9J 

399. 

176. 

0. 

0. 

0. 

0 

TAAJ 

100. 

190. 

90. 

9R00R . 

lARP 1 . 

1 13630 

TSPA 

179. 

99. 

0. 

0 . 

0. 

0 

THIL 

0. 

7R  . 

7F. 

3 1 1 7A  . 

A 67  6. 

35R51 

TH57 

3A. 

31  . 

0. 

0. 

0. 

0 

TOTAL 

1709. 

1311. 

179. 

13665A . 

P0A9R . 

157152 

DO  YOU  WISH  TO  CONSTRAIN  LSR  OUTPUT  CY>M)?N 


DO  YOU  v;ANT  detailed  0 A M COSTS  (Y,N)?N 
SUMMAI^Y  0-  A M COST 


NAS 

MILITARY 

A/C  FUEL 

A/C  0AM 

BASF. 

PAA 

TOTAL 

TOTAL 

S UP  P OFT 

TOTAL 

CHA.S 

16006.3 

6R0A.1 

23RR.A 

3563.5 

2R762.3 

corp 

21632.3 

162  6.  A 

1013.9 

1 13AA.A 

3 5616.9 

ELLY 

10393.2 

6 A 3.  2 

A69.7 

2AR1 .7 

1 39R7.7 

KI NC 

1 769  5.  R 

6 A 69. 3 

AOAl .2 

3R35.9 

320A2 .2 

ME!iI 

2 1 A 1 5 . 5 

597A.1 

2029  .5 

A3A5. 1 

3376A.2 

PFNS 

26R63.R 

2555.1 

627.5 

1 39AR  .9 

A39^5.A 

SAtTF 

1201 1 .1 

309.1 

266.5 

2609.6 

151 96.  A 

'■fHIT 

19R5A  .6 

1AA3.8 

1903  .0 

AOAR  .R 

272  50.2 

TOTAL 

1A5R72.6 

25R25.2 

12739.6 

A61  77.R 

230615.2 

TOTAL  SYSTEMS  COST  = 
FACILITY  INVESTMENT 
+ A/C  INVESTMENT 
+ 0 fi  M COSTS  (LESS 
+ CNATP.A.  CNABATliA, 

COSTS 

NON  ADD  ITEMS) 
CMAVANTRA  FINED 

COSTS 

DO  YOU 

A2 

UlSH  TO  RETURN 

0237.2 
TO  EXCESS 

-DEFICIENCY 

PP.OGliAM 

(Y.N) ?N 

DO  YOU  WISH  TO  RUN  FOE  ANOTHER  YEAii  (Y>N)?N 


PrOGPAM  STOP  AT  3SA9 


(2.20) 


(2.20) 


20 


III.  CURRENT  PILOT  TRAINING  DATA  FILES 


INTRODUCTION 

3.  1 This  section  merely  lists  the  data  files  which  contain  the  current 
planning  factors  for  the  pilot  training  system  for  1970-1971.  The  only  com- 
pletely new  data  file  in  this  section  is  PHABA*  which  includes  the  standard 
phase-to-base  allocation  data  . The  reader  is  referred  to  the  IFRS  II  manual-^ 
for  the  other  data  files . 

DATA  FILE— PHABA* 

3.2  This  data  file  contains  the  standard  phase-to-base  assignment  used 
by  the  model.  It  can  contain  any  assignment  schedule,  i.e.,  it  can  be  a 
proposed  assignment.  With  this  idea  in  mind,  the  first  two  lines  of  the  data 
file  are  not  read,  so  the  user  can  insert  a title  on  these  lines  for  his  own 
reference  purposes . 

3.3  Table  3.1  gives  a listing  of  this  present  data  file.  The  only  require- 
ment for  this  data  file  is  that  all  line  numbers  must  contain  four  digits  followed 
by  two  blanks.  The  phase-to-base  assignment  has  the  same  format  that  the 
user  follows  when  entering  data  while  the  Static  IFRS  model  is  run.  That  is, 
two  digits  for  each  phase  number,  a comma,  a valid  base  abbreviation  of  four 
characters,  a comma  and  a percentage  (100%  = 1.0),  i.e.  , a decimal  point 
and  two  or  three  places.  No  end-of-file  indicator  is  required.  If  there  is 

an  error  in  any  line  of  data,  the  model  does  not  print  that  line. 

OTHER  DATA  FILES 

3.4  Tables  3. 2-3. 7 contain  listings  of  the  other  related  data  files  for  the 
pilot  training  system,  i.e.. 


BAS  CAS  - 

training  phase  planning  factor  data 

PIPE 

pipeline  data 

RUN  DAT  - 

additional  phase  runway  data 

ACDAT*  - 

aircraft  data 

RPIFI* 

facilities  inventory 

INVOC 

facility  investment  cost  factors. 

3.5  The  only  major  change  in  format  is  in  the  PIPE  file.  This  was  modified 
when  the  NFO  training  system  was  included.  Previously  each  phase  could  have 
only  a maximum  of  three  following  phases.  Now  it  has  a maximum  of  six  and 
so  more  zeroes  are  required. 


TABLE  3.1 
DATA  FILE  PHABA* 


1000 

STANDARD 

PHASE -BASE  ALLOCATION 

1005 

PHASE  NO 

• 

#BASE  CODE# PERCENT 

1010 

01>PENS» 

.0 

1015 

02«PENS« 

.0 

1020 

03#SAUF> 

.0 

1025 

04*MERI« 

.0 

1030 

05#MERI# 

.0 

1035 

06»PENS» 

.0 

1040 

07#CHAS* 

.0 

1045 

08#KIN6« 

.0 

1050 

09#WHIT# 

.0 

1055 

10»SAUF, 

.0 

1060 

1 1«C0RP« 

.0 

1065 

12, WHIT# 

.0 

1070 

13#PENS# 

.0 

1075 

14#ELLY# 

.0 

1080 

15# ELLY# 

.0 
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TABLE  3.2 
DATA  FILE  BAS  CAS 


1000  NY« 

lOOS  0«100000E4>01  0*1S6000E«03  0-480000E402  0*100000E-«>01 
1010  0.101000E4>04  0.100000E<f04  O^lOOOOOE'fOA  0 . 100000E<«>04 
1015  0*100000E-f04  0.101500E-«-04  0 . 100000E4-04  0 •480000E-f02 

1020  0.500000E^02  0 •500000E-«-02  0 . 102000E<f04 

1025  15 

1030  AOC  SCHOOL 
1035  0 0 

1040  .5«10«0 
1045  1*0«0«0 
1050  0«0«0 
1055  5«0«0 
1060  0»0«0 
1065  0«0«0 
1070  50«0«0 
1075  0«0«0 
1080  0«0«0 
1085  0«0«0 
1090  489«0«0 
1095  700«0«0 
1100  3«0<0 
1105  ENVIRO  INDOC 
1110  00 
1115  *5#5«0 
1120  1.0«0«0 
1125  0,0»0 
1130  5«0#0 
1135  0«0«0 
1140  0«0«0 
1145  50«0«0 
1150  0«0«0 
1155  0«0«0 
1160  0«0«0 
1165  200«0«0 
1170  700*0*0 
1175  3*0*0 
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TABLE  3.2  (Cont) 


1180 

PRIMARY 

T34B 

1185 

1 0 

1190 

•5*6*84 

1195 

.788*0*0 

1800 

18.6*0*0 

1805 

4.8*0*0 

1810 

3.01 *0*0 

1815 

38  *6*0*0 

1880 

89.8*0*0 

1885 

8*0*0 

1830 

0*0*0 

1835 

8 .55*0*0 

1840 

50*0*0 

1845 

700*0*0 

1850 

3*0*0 

1855 

BASIC  JET*A 

T-8A 

1860 

1 0 

1865 

•5* 18*84 

1870 

•805*0*0 

1875 

311*0*0 

1880 

3 • 54*0*0 

1885 

8.85*0*0 

1890 

65  • 1 *0*0 

1895 

67*0*0 

1300 

8*0*0 

1305 

0*0*0 

1310 

5.46*0*0 

1315 

71  .85*0*0 

1380 

0*0*0 

1385 

0*0*0 

1330 

BASIC  JET'B 

T8BC 

1335 

1 0 

1340 

.5*8*84 

1345 

.795*0*0 

1350 

365*0*0 

1355 

3 *35*0*0 

1360 

8 .85*0*0 

1365 

64.4*0*0 

1370 

53  *7*0*0 

1375 

8*0*0 

1380 

0*0*0 

1385 

7.1 6*0*0 

1390 

71  .85*0*0 

1395 

0*0*0 

1400 

0*0*0 

AQAS 


JP-A 


JP-4 


ACAD 


TABLE  3.2  (Cont) 


1405  B-JET  G/CQ  T2BC 

1410  1 0 

1415  .5«6«S4 

1420  .83«0«0 

1425  365«0«0 

1430  2.63«0«0 

1435  2.36«0#0 

1440  30.7*0«0 

1445  20.9«0»0 

1450  2*0.0 

1455  15*0.0 

1460  7.76*0*0 

1465  0*0*0 

1470  0*0*0 

1475  0*0*0 

1400  ADV  JET-TF  TF9J 

1485  1 0 

1490  .5*20*24 

1495  .846*0*0 

1500  575*0*0 

1505  2. 9*0*0 

1510  2. 1*0*0 

1515  205*0*0 

1520  145.3*0*0 

1525  3*0*0 

1530  0*0*0 

1535  7.35*0*0 

1540  93*0*0 

1545  0*0*0 

1550  0*0*0 

1555  ADV  JET-TA  TA4J 
1560  1 0 

1565  .5*20*24 
1570  .85*0*0 
1575  470*0*0 
1580  3.12*0*0 
1585  2. 1*0*0 
1590  195*0*0 
1595  139*0*0 
1600  3*0*0 
1605  0*0*0 
1610  7. 5*0*0 
1615  93*0*0 
1620  0*0*0 
1625  0*0*0 


JP-4 


JP-4 


JP-4 
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TABLE  3.2  (Cont) 


1630  BASIC  PROP  T28C 
1635  1 0 

1640  .S«19«24 
1645  .776«0«0 
1650  50*5«0«0 
1655  3.71«0«0 
1660  3*1«0«0 
1665  127.5«0«0 
1670  98.7«0«0 
1675  2«0«0 
1680  0#0#0 
1685  4.32«0«0 
1690  164.25*0«0 
1695  0«0«0 
1700  0«0«0 

1705  B-PROP  CQ  T28C 

1710  1 0 

1715  .5«4<24 

1720  .879«0«0 

1725  50.5*0«0 

1730  2.81«0«0 

1735  2.22*0«0 

1740  15#0«0 

1745  6.6«0«0 

1750  2«0«0 

1755  10«0«0 

1760  5.47*0*0 

1765  0*0*0 

1770  0*0*0 

1775  0*0*0 

1780  ADV  PROP  TS2A 

1785  1 0 

1790  .5*17*24 

1795  .865*0*0 

1800  96.6*0*0 

1805  3.72*0*0 

1810  2.75*0*0 

1815  123.8*0*0 

1820  109.4*0*0 

1825  3*0*0 

1830  0*0*0 

1835  8.89*0*0 

1840  143*0*0 

1845  0*0*0 

1850  0*0*0 


A6AS 


AGAS 


AGAS 
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TABLE  3 


1855  BASIC  HELD  TB8C 

1860  1 0 

1865  .5«18«e4 

1870  .776«0«0 

1875  50.5#0«0 

1880  3.71«0«0 

1885  3.1«0«0 

1890  ieB.5«0«0 

1895  95.4«0«0 

1900  2,0»0 

1905  0«0*0 

1910  4.3B«0«0 

1915  0«0«0 

1980  0«0«0 

1985  0«0«0 

1930  PRE  HELO  T88C 
1935  1 0 

1940  *5«5«84 
1945  .85«0#0 
1950  50.5«0«0 
1955  3.81«0«0 
1960  3.8«0«0 
1965  83«5«0«0 
1970  83«6«0«0 
1975  8»0«0 
1980  0«0«0 
1985  4.8«0«0 
1990  37«0#0 
1995  0*0*0 
8000  0*0*0 

8005  HELO  PRIM  TH57 

8010  1 0 

8015  .5*4*84 

8080  .836*0*0 

8085  18.6*0*0 

8030  3.31*0*0 

8035  8.96*0*0 

8040  84.8*0*0 

8045  84.4*0*0 

8050  8*0*0 

8055  0*0*0 

8060  3*0*0 

8065  35*0*0 

8070  0*0*0 

8075  0*0*0 


2 (Cont) 

A6AS 


AQAS 


AOAS 
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TABLE  3.2  (Cont) 


2080  HELO  ADV  THIL  JP 

2085  1 0 

2090  .5«8«24 
2095  .864*0«0 
2100  100»0#0 
2105  2.98«0«0 
2110  2.77#0#0 
2115  57#0*0 
2120  59.8«0*0 
2125  2«0*0 
2130  0*0*0 
2135  6.02*0*0 
2140  35*0* 

2145  0*0*0 
2150  0*0*0 


TABLE  3.3 
DATA  FILE  PIPE 


inon  1/iK'AVY  OFFICER 


1005 

3 

0 

0 

0 

0 

0 

2 

0 .0300 

1010 

A 

9 

12 

0 

0 

0 

3 

0 .OAOO 

1015 

5 

0 

0 

0 

0 

0 

A 

0.0600 

lOSO 

6 

0 

0 

0 

0 

0 

5 

0.0300 

10S5 

7 

R 

0 

0 

0 

0 

6 

0.0100 

1030 

0 

0 

0 

0 

0 

0 

7 

0.0300 

1035 

0 

0 

0 

0 

0 

0 

R 

0.0300 

lOAO 

10 

0 

0 

0 

0 

0 

9 

0 . 1 500 

10A5 

1 1 

0 

0 

0 

0 

0 

10 

0 .0050 

1050 

0 

0 

0 

0 

0 

0 

1 1 

0 .0100 

1055 

13 

0 

0 

0 

0 

0 

12 

O.IAOO 

1060 

lA 

0 

0 

0 

0 

0 

13 

0.0050 

1065 

15 

0 

0 

0 

0 

0 

lA 

0.0050 

1070 

0 

0 

0 

0 

0 

0 

15 

0.0050 

1075  14NAVY  - AOC 


lORO 

3 

0 

0 

0 

0 

0 

1 

O.OROO 

1090 

A 

9 

12 

0 

0 

0 

3 

0.1300 

1095 

5 

0 

0 

0 

0 

0 

A 

0.0750 

1100 

6 

0 

0 

0 

0 

0 

5 

0.0300 

1105 

7 

R 

0 

0 

0 

0 

6 

0 .0200 

1110 

0 

0 

0 

0 

0 

0 

7 

0 .OAOO 

1115 

0 

0 

0 

0 

0 

0 

R 

O.OAOO 

1 120 

10 

0 

0 

0 

0 

0 

9 

0.2300 

1 125 

1 1 

0 

0 

0 

0 

0 

10 

0.0100 

1130 

0 

0 

0 

0 

0 

0 

1 1 

0.0200 

1135 

13 

0 

0 

0 

0 

0 

12 

0.2000 

1 lAO 

lA 

0 

0 

0 

0 

0 

13 

0.0050 

1 1A5 

15 

0 

0 

0 

0 

0 

lA 

0.0050 

1150 

0 

0 

0 

0 

0 

0 

15 

0.0050 

1155 

1 1 MARINE 

1160 

3 

0 

0 

0 

0 

0 

2 

0.0150 

1165 

A 

12 

0 

0 

0 

0 

3 

0 .0600 

1170 

5 

0 

0 

0 

0 

0 

A 

0.0500 

1 175 

6 

0 

0 

0 

0 

0 

5 

0.0100 

1 IRO 

7 

R 

0 

0 

0 

0 

6 

0.0100 

1 1R5 

0 

0 

0 

0 

0 

0 

7 

0.0300 

1190 

0 

0 

0 

0 

0 

0 

R 

0.0300 

1195 

13 

0 

0 

0 

0 

0 

12 

0 .1000 

1200 

lA 

0 

0 

0 

0 

0 

13 

0.0050 

1205 

15 

0 

0 

0 

0 

0 

lA 

0.0050 

1210 

0 

0 

0 

0 

0 

0 

15 

0.0050 

1215 

RC 

-GRD  A 

FOR. 

1220 

3 

0 

0 

0 

0 

0 

2 

0 .0200 

1225 

9 

12 

0 

0 

0 

0 

3 

0.0500 

1230 

1 1 

0 

0 

0 

0 

0 

9 

0 .0500 

1235 

0 

0 

0 

0 

0 

0 

1 1 

0. 

12A0 

13 

0 

0 

0 

0 

0 

12 

0.0500 

12A5 

lA 

0 

0 

0 

0 

0 

13 

0. 

1250 

15 

0 

0 

0 

0 

0 

lA 

0. 

1255 

0 

0 

0 

0 

0 

0 

15 

0. 

1260 

-99FND 

OF 

FILE 
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TABLE  3.4 
DATA  FILE  RUNDAT 


inno 

1 PR  I MARY 

T34B 

1005 

9.3R0  10.080 

10.970 

1 1 .850 

12.680 

13.120 

1010 

12.920  12.250 

1 1 .380 

10.500 

9.620 

9.230 

1015 

0.1500  0.5000 

1020 

0.6300  0.6500 

0.6900 

0.7500 

0.8400 

0.8300 

1025 

0.8700  0.8300 

0.8600 

0.8800 

0.7500 

0.6800 

1030 

0.270000E+02 

0. 

0 

1035 

0.130000E+01 

0. 

0 

lO/iO 

0.7638R9E-02 

0. 

0 

1045 

0.121528E-01 

0. 

0 

1050 

0.109000E+03 

0. 

0 

1055 

0.900000E+01 

0. 

0 

1060 

0.145833E-01 

0. 

0 

1065 

0.500000E-01 

0. 

0 

1070 

0. 

0. 

0 

1075 

0.833333E-01 

0. 

0 

lOBO 

1 BASIC  JET -A 

T-2A 

10R5 

9.250  10.020 

10.930 

1 1 .920 

12.820 

13.280 

1090 

13.050  12.350 

1 1 .450 

10.430 

9.480 

9.100 

1095 

0.1500  0.5000 

1100 

0.5900  0.6300 

0.7800 

0.8200 

0.8800 

0.8500 

1105 

0.9000  0.9100 

0.8100 

0.8600 

0.7500 

0.7700 

1 1 10 

0.480000E+02 

0. 

0 

1115 

0.143000E+01 

0. 

0 

1120 

0.829861E-02 

0. 

0 

1 125 

0.158334E-01 

0. 

0 

1130 

0.560000E+02 

0. 

0 

1135 

0.160000E+02 

0. 

0 

1140 

0. 190000E-01 

0. 

0 

1145 

0.500000E-01 

0. 

0 

1150 

0. 

0. 

0 

1155 

0.833333E-01 

0. 

0 

1160 

1 BASIC  JET-B 

T2BC 

1165 

9.250  10.020 

10.930 

1 1 .920 

12.280 

13.280 

1170 

13.050  12.350 

1 1 .350 

10.430 

9 .480 

9.100 

1175 

0.1500  0.5000 

1 IRO 

0.6000  0.6500 

0.8000 

0.8400 

0.9000 

0.8700 

1 1B5 

0.9200  0.9400 

0.8300 

0.8900 

0.7600 

0.7900 

1190 

0.380000E+02 

0. 

0 

1195 

0.147000E-f01 

0. 

0 

1200 

0.829861E-02 

0. 

0 

1205 

0.158334E-01 

0. 

0 

1210 

0.56000v;i:-f02 

0. 

0 

1215 

0.130000E+02 

0. 

0 

1220 

0. 190000E-01 

0. 

0 

1225 

0.500000E-01 

0. 

0 

1230 

0. 

0. 

0 

1235 

0.833333E-01 

0. 

0 
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TABLE  3.4  (Cont) 


12A0 

IB-JET  G/CC 

T2BC 

18A5 

9.380  10.080 

10.970 

1 1 .850 

12.680 

13.120 

1250 

12.920  12.250 

1 1 .380 

10.500 

9 .620 

9.230 

1255 

0.1500  0.5000 

1260 

0.6800  0.6700 

0 .6900 

0.7400 

0.8900 

0.8300 

1265 

0.8900  0.8500 

0.8300 

0.8900 

0.7100 

0.8100 

1270 

0.290000E+02 

0. 

0 

1275 

0.11 lOOOE+01 

0. 

0 

1280 

0.756945E-02 

0. 

0 

1285 

0.143750E-01 

0. 

0 

1290 

0.380000E+02 

0. 

0 

1295 

0. lOOOOOE+02 

0. 

0 

1300 

0.172500E-01 

0. 

0 

1305 

0.500000E-01 

0. 

0 

1310 

0. 

0. 

0 

1315 

0.833333E-01 

0. 

0 

1320 

lADV  JET-TF 

TF9J 

1325 

9.500  10.200 

10.980 

1 1 .850 

12.530 

12.650 

1330 

12.770  12.150 

1 1 .380 

10.600 

9.780 

9 .420 

1335 

0.1500  0.5000 

1340 

0.6800  0.7900 

0.8100 

0.8100 

0.8600 

0.8900 

1345 

0.9500  0.9500 

0.9100 

0.9000 

0 .8700 

0.6600 

1350 

0.105000E+03 

0. 

0 

1355 

0.136000E+01 

0. 

0 

1360 

0.297570E-01 

0. 

0 

1365 

0.250000E-01 

0. 

0 

1370 

0.413000E+03 

0. 

0 

1375 

0.330000E+02 

0. 

0 

1380 

0.300000E-01 

0. 

0 

1385 

0.500000E-01 

0. 

0 

1390 

0. 

0. 

0 

1395 

0.833333E-01 

0. 

0 

1400 

lADV  JET-TA 

TA4J 

1405 

9.500  10.200 

10.980 

1 1 .850 

12.530 

12.650 

1410 

12.770  12.150 

1 1 .380 

10.600 

9.780 

9.420 

1415 

0.1500  0.5000 

1420 

0.6800  0.7900 

0.8100 

0.8100 

0.8600 

0.8900 

1425 

0.9500  0.9500 

0.9100 

0.9000 

0.8700 

0.6600 

1430 

0.105000E+03 

0. 

0 

1435 

0.136000E+01 

0. 

0 

1440 

0.297570E-01 

0. 

0 

1445 

0.250000E-01 

0. 

0 

1450 

0.413000E+03 

0. 

0 

1455 

0.330000E+02 

0. 

0 

1460 

0.300000E-01 

0. 

0 

1465 

0.500000E-01 

0. 

0 

1470 

0. 

0. 

0 

1475 

0.833333E-01 

0. 

0 
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TABLE  3.4  (Cont) 


1A80 

1 BASIC  PROP 

T28C 

1485 

9.380  10.080 

1 10.970 

1 1 .850 

12.680 

13.120 

1490 

12.920  12.250 

1 11.380 

10.500 

9.620 

9.230 

1495 

0.1500  0.5000 

1500 

0.6300  0.6500 

1 0.7100 

0.7600 

0.8200 

0.7700 

1505 

0.8100  0.8000 

1 0.7600 

0.8600 

0.7300 

0.6600 

1510 

0.750000E+02 

0. 

0 

1515 

0.154000E+01 

0. 

0 

1520 

0.458334E-02 

0. 

0 

1525 

0.120486E-01 

0. 

0 

1530 

0.278000E+03 

0. 

0 

1535 

0.240000E+02 

0. 

0 

1540 

0.144583E-01 

0. 

0 

1545 

0.500000E-01 

0. 

0 

1550 

0. 

0. 

0 

1555 

0.833333E-01 

0. 

0 

1560 

IB-PROP  CQ 

T28C 

1565 

9.380  10.080 

10.970 

1 1 .850 

12.680 

13.120 

1570 

12.920  12.250 

1 1 .380 

10.500 

9.620 

9.230 

1575 

0.1500  0.5000 

1580 

0.7600  0.7800 

0.8200 

0.8800 

0.8800 

0.8900 

1585 

0.8900  0.9000 

0.8800 

0.9500 

0.8800 

0.8100 

1590 

0.160000E+02 

0. 

0 

1595 

0. 103000E+01 

0. 

0 

1600 

0.420139E-02 

0. 

0 

1605 

0.255555E-01 

0. 

0 

1610 

0. lOOOOOE+04 

0. 

0 

1615 

0.600000E+01 

0. 

0 

1620 

0.306667E-01 

0. 

0 

1625 

0.500000E-01 

0. 

0 

1630 

0. 

0. 

0 

1635 

0.833333E-01 

0. 

0 

1640 

lADV  PROP 

TS2A 

1645 

9.500  10.200 

10.980 

1 1 .850 

12.530 

12.850 

1650 

12.770  12.150 

1 1 .380 

10.600 

9.780 

9.420 

1655 

0.1500  0.5000 

1660 

0.6700  0.7600 

0.8500 

0.8300 

0.8900 

0 .9400 

1665 

0.9700  0.9700 

0.9500 

0.9400 

0.8700 

0.6700 

1670 

0.390000E+02 

0. 

0 

1675 

0.278000E+01 

0. 

0 

1680 

0.319445E-01 

0. 

0 

1685 

0.232639E-01 

0 . 

0 

1690 

0.204000E+03 

0. 

0 

1695 

0.130000E+02 

0. 

0 

1700 

0.279167E-01 

0. 

0 

1705 

0.500000E-01 

0. 

0 

1710 

0. 

0. 

0 

1715 

0.833333E-01 

0. 

0 
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1780 

1785 

1730 

1735 

1740 

1745 

1750 

1755 

1760 

1765 

1770 

1775 

17R0 

17R5 

1790 

1795 

IROO 

1R05 

IRIO 

1815 

1880 

1885 

1830 

1R35 

1840 

1R45 

1R50 

1855 

1860 

1865 

1870 

1875 

1880 

1885 

1890 

1895 

1900 

1905 

1910 

1915 

1920 

1925 

1930 

1935 

1940 

1945 

1950 

1955 


IBASIC  HELO  T88C 

9.38  10.08  10.97  11.85  12.68  13.18 
12.98  18.85  1 1 . 3R  10.5  9.62  9.83 
0.15  0.5 

.71  .77  .8  .87  .91  .86 
.92  .89  .89  .91  .85  .8 
14  0 0 
1 .78  0 0 
.012777  0 0 
.015555  0 0 
1000.  0 0 
5.  0 0 
.01867  0 0 
.05  0 0 
0 0 0 
.08333  0 0 
IPRE  KELO  T88C 

9.380  10.080  10.970  11.850  12.680 
12.920  12.250  11.380  10.500  9.620 

0.1500  0.5000 

0.7100  0.7700  0.8000  0.8700  0.9100 
0.9200  0.8900  0.8900  0.9100  0.8500 


0.140000E+02  0.  0. 
0.178000E+01  0.  0. 
0.127777E-01  0.  0. 
0.155555E-01  0.  0. 
O.lOOOOOE+04  0.  0. 
0.500000E+01  0.  0. 
0.186667F-01  0.  0. 
0.500000E-01  0.  0. 
0 . 0 . 0 . 
0.833333E-01  0.  0. 


IHELO  PRIM  TH57 

9.380  10.080  10.970  11.850  12.680 
12.920  12.250  11.380  10.500  9.620 

0.1500  0.5000 

0.7000  0.7100  0.7300  0.7900  0.8700 
0.8900  0.9000  0.9000  0.9100  0.8100 


0.220000E+02  0.  0. 
0.119000E+01  0.  0. 
0.270139E-01  0.  0. 
0.179861E-01  0.  0. 
0.200000E+02  0.  0. 
0.800000E+01  0.  0. 
0.215833E-01  0.  0. 
0.500000E-01  0.  0. 
0 . 0 . 0 . 
0.833333E-01  0.  0. 


3.120 

9.230 

.8600 

.8000 


3.120 

9.230 

.8700 

.7200 
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TABLE  3.4  (Cont) 


1960 

IHELO  ADV 

THIL 

1965 

9.380  10.080 

10.970 

11.850  18.680 

1970 

18.920  12.250 

1 1 .380 

10.500  9.620 

1975 

0.1500  0.5000 

1980 

0.7500  0.7500 

0.7700 

0.8300  0.9100 

1985 

0.9300  0.9400 

0.9200 

0.9500  0.8600 

1990 

0.300000E+02 

0. 

0. 

1995 

0.179000E+01 

0. 

0. 

8000 

0.210070E-01 

0. 

0. 

8005 

0.139930E-01 

oi 

0. 

2010 

0.400000E+02 

0. 

0. 

2015 

O.lOOOOOE+02 

0. 

0. 

2020 

0.167917E-01 

0. 

0. 

2025 

0.500000E-01 

0. 

0. 

2030 

0. 

0. 

0. 

2035 

0.833333E-01 

0. 

0. 

2180 

-99END  OF  FILE 

• 

3.  ISO 
9.230 

.9100 

.7600 
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TABLE  3.5 
DATA  FILE  INVCO* 


101  1 I.83<0*0«0>0«  .02 

102  63360.#  1#0#  1«0»  422.40 

103  47.2# 1 . 17# 13000# 1#0# . 19 

104  24.8#  1 . 12#2S000#  1#0#  . 19 

105  25.7# 1. 15# 50000# 1# 0# . 19 

106  22.00# 1 .23# 5260# 1# 0# . 19 

107  1 1#  1 . 1 5#  0#0#  0#  .06 

108  39.9#  1 . 1 4#8000#  1#  0#  .26 

109  23.8# 1 . 12# 15000# 1# 0# .22 
no  21500#  1#0#0#0«0 

111  3200#  1.1#0#0#0#26.25 

112  41 .8#  1 . 18#  1 5000#  1#0#  .21 

113  1 1000#  1 . 17#0#0#0#  105 

114  0#0#0#0#0#0 

115  28 . 3#  1 . 1 5#  2 1 000#  1 * 0#  . 1 6 

116  30. 4# 1 . 13# 16000# 1* 0# . 1 6 

117  330#  1#0#  1#0*0 

1 18  5.75#  1#0#  1#0#  .08 

119  0#0#0#0#0#0 

120  0#0#0#0#0#  .08 

121  71595. #0#0#  1#0#986. 

122  4.30#0#0#  1#0#  .04 

123  0#0#0#0#0#0 

124  0#0#0#0#0#0 

125  5.  15#  1#0#  1#0#  0 

126  0#  0#  0#  0#  0#  0 

127  11.R3#0#0#0#0#.02 

128  1 1.83#0#0#0#0#.02 

129  9#  1.  15#0#0#0#  .06 

130  9#  1.15#0#0#0#.06 


131 

0#0.0# 

0# 

0#0 

132 

0#0#0# 

0# 

0#0 

133 

0#0#0# 

0# 

0#0 

134 

0#  0#  0# 

0# 

0#0 

135 

0#0#0# 

0# 

0#0 

136 

0#0*0# 

0# 

0#0 

137 

0#0#0# 

0# 

0#0 

138 

0#0.0# 

0# 

0#0 

139 

0#  0#  0# 

0# 

0#0 

140 

0#  0#  0# 

0# 

0#0 

141 

0#.0#0# 

0# 

0#0 

142 

0#0#0# 

0# 

0#0 

143 

0#0#0# 

0# 

0#0 

144 

0#0#0# 

0# 

0#0 

145 

0#  0#  0# 

0# 

0#0 

146 

0#0«0# 

0# 

0#0 

147 

0#0«0# 

0# 

0#0 

148 

0#0#0# 

0# 

0#0 

149 

0#0*0# 

0# 

0#0 

150 

0#  0#  0# 

0# 

0#0 

I 


TABLE  3.6 
DATA  FILE  RPIFI* 


101 

01320* 

A/C  PKNG  APN 

SY 

102 

12540* 

DIST  PI  PEL  IN 

MI 

103 

14140* 

A/C  0P  BLDG 

SF 

104 

17110* 

ACAOEMC  BLDG 

SF 

105 

21110* 

MAINT  HANGAR 

SF 

106 

21910* 

PW  MAINT  SHP 

SF 

107 

04210* 

GEN  WAREH0US 

SF 

108 

55010* 

DISPENSARY 

SF 

109 

61010* 

ADMIN  OFFICE 

SF 

1 10 

71110* 

FAM  HOUSING 

UN 

1 1 1 

72210* 

EM  BARRACKS 

MN 

112 

72310* 

EM  MESS  HALL 

SF 

113 

72415* 

BOO 

MN 

114 

72416* 

BOO  MESS 

SF 

115 

7401  4* 

EXCHANGE 

SF 

116 

74063* 

SERVICE  CLUB 

SF 

117 

81160* 

STAND  BY  GEN 

UN 

1 18 

81230* 

ELEC  DIST  LN 

LF 

1 19 

83210* 

SANITR  SEWER 

LF 

120 

84210* 

WATER  DIS  LN 

LF 

121 

85110* 

ROADS 

MI 

122 

85210* 

PARKING  AREA 

SY 

123 

87110* 

STORM  SEWER 

LF 

124 

87120* 

DRAIN  DITCH 

LF 

125 

87210* 

SECURT  FENCE 

LF 

126 

00000* 

INELIG  HOUSE 

UN 

127 

01320* 

PER  TAXI  WAY 

SY 

128 

1 1320* 

TOT  PKNG  APN 

SY 

129 

04210* 

SHED  SPACE 

SF 

130 

44210* 

TOT  WAREHSE 

SF 

1010 

0*  0 

1020 

0*0 

1030 

18702 

*0 

1040 

0*0 

1050 

319268*  408  49 

1060 

15359 

*21027 

1070 

0*  0 

1080 

0* 15136 

1090 

24689 

*24914 

1100 

530*256 

1 1 10 

972*  451 

1120 

18500 

*16151 

37 


m 


m 


TABLE  3.6  (Cont^ 


1130  168«0 
1140  0«0 
1150  0# 17780 
1160  12730*0 
1170  0*0 
118  0 0*949  2 5 
1190  71683*0 
1200  68420*0 
1210  14.72*0 
1220  90381*0 
1230  57875*0 
1240  36269*0 
1250  79806*0 
1260  110*168 
1270  0*0 
1280  348068*0 
1290  0*0 

1300  44783*33578 
1510  .839*8000*9*1 
1520  .839*8000*9*1 
1530  .086*8000*9*1 
1540  0*0*  0*0 
1550  0*0*  0*0 
1560  0*0*  0*0 
1570  0*0*  0*0 
1580  0*0*  0*0 
1590  0*0*  0*0 
1600  0*0*  0*0 
1610  2835000*100000*0 
2010  0*  0 
2020  8.55*0 
2030  57891*7692 
2040  0*37661 
2050  0*463301 
2060  53273*20701 
2070  0*0 
2080  0*21100 
2090  42527*235466 
2100  1988*428 
21 10  869*1420 
2120  33209*0 
2130  412*204 
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TABLE  3.6  (Cont) 


2140 

0*0 

2150 

0*32499 

2160 

0*23334 

2170 

0*0 

2180 

405958*0 

2190 

174834*  0 

2200 

252218*0 

2210 

45.26*  0 

2220 

323433*  0 

2230 

233152*0 

2240 

26812*0 

2250 

28652*0 

2260 

371*212 

2270 

0*0 

2280 

641380*0 

2290 

0*0 

2300 

491107*  604445 

2510 

.839*8000*9* 1 

2520 

.839*5000*  2*2 

2530 

.82*  5000*2*2 

2540 

.622*  5000*2*2 

2550 

0*  0*  0*  0 

2560 

0*  0*  0*  0 

2570 

0*  0*  0*  0 

2580 

0*  0*  0*  0 

2590 

0*  0*  0*  0 

2600 

0*  0*  0*  0 

2610 

200000* 1 100000*0 

3010 

0*0 

3020 

2. 4*0 

3030 

375* 1409 

3040 

9475*  4099 

3050 

99843*  0 

3060 

4551* 1071 

3070 

0*0 

3080 

0*8345 

3090 

7639*71 18 

3100 

725*  127 

31  10 

674*0 

3120 

0* 12816 

3130 

192*0 

3140 

0*0 

1' 
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TABLE  3.6  (Cont) 


3150  6054«0 
3160  2816«0 
3170  0«0 
3180  S0170«0 
3190  1001S«0 
3200  31645*0 
3210  6*93*0 
3220  37269*0 
3230  174520*0 
3240  8328*0 
3250  20662*0 
3260  648*60 
3270  0*0 
3280  358146*0 
3290  0*0 

3300  25126*12374 

3510  .9*3350*1*2 

3520  .9*3025* 1*2 

3530  0*0*  0*0 

3540  0*0*  0*0 

3550  0*0*  0*0 

3560  0*0*  0*0 

3570  0*0*  0*0 

3580  0*0*  0*0 

3590  0*0*  0*0 

3600  0*0*  0*0 

3610  165000*114960*0 

4010  0*0 

4020  4.31*0 

4030  19114*0 

4040  15165*0 

4050  153944*  130186 

4060  0*25502 

4070  0*0 

4080  0* 17601 

4090  8277*27880 

4100  790*  195 

4110  933*356 

4120  28  0 68  *0 

4130  153*100 

4140  0*0 

4150  14054*8608 
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TABLE  3.6  (Cont) 


4160  0»7590 
4170  OfO 
4180  9621  1#  6875 
4190  63192*0 
4200  69399*6960 
4210  19.66*  13*4 
4220  140379*12400 
4230  151177*0 
4240  0*0 

4250  58976*  19000 
4260  247*92 
4270  0*0 
4280  241954*0 
4290  0*0 

4300  32813* 106738 

4510  .925*8000*9* 1 

4520  .925*8000*9* 1 

4530  .075*8000*9*1 

4540  .075*8000*9*  1 

4550  0*0*  0*0 

4560  0*  0*  0*  0 

4570  0*0*  0*0 

458  0 0*  0*  0*  0 

4590  0* 0* 0* 0 

4600  0*  0*  0*  0 

4610  2835000*50000*0 

5010  0*0 

5020  1.86*0 

5030  12217*0 

5040  30023*0 

5050  206538*0 

5060  9080*0  . 

5070  0*0 
5080  19562*0 
5090  47747*0 
5100  720* 1 15 
5110  1236*0 
5120  19241*0 
5130  468*0 
5140  0*0 
5150  18610*0 
5160  7507*0 


TABLE  3.6  (Cont) 


5180  ni360«0 
5190  69119#0 
520p  72089# 0 
5210  14.  16#0 
5220  77020# 0 
5230  12209# 0 
5240  0#0 
5250  1 55289# 0 
5260  158# 45 
5270  0#0 
5280  288263# 0 
5290  0#0 

5300  85309# 14880 
5510  .9#8000#^#1 
5520  .9#8000#9#1 
5530  . 745# 6400# 9#  1 
5540  0#0#0#0 
5550  0#0#0#0 
5560  0#0#0#0 
5570  0#0#0#0 
5580  0#0#0#0 
5590  0#0#0#0 
5600  0#0#0#0 
5610  3465000#  49980#  0 
6010  0#0 
6020  17.03#0 
6030  20274# 0 
6040  36700# 93291 
6050  321681#0 
6060  32767#21998 
6070  0#0 
6080  0# 16605 
6090  71858#243163 
6100  1732# 303 
6110  456# 1503 
6120  15264# 2529 
6130  1667# 46 
6140  0#0 
6150  77188# 1025 
6160  15383#0 
6170  0#0 
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TABLE  3.6  (Cont) 


6180 

6 >9038*0 

6190 

138190*0 

6200 

693604*  0 

6210 

55.  56*  0 

6220 

279  451*0 

6230 

151792*0 

6240 

29417*  0 

6250 

75682*0 

6260 

535*377 

6270 

0*0 

6280 

356000*0 

6290 

0*0 

6300 

177070*6049  49 

6510 

.9*8000*9* 1 

6520 

. 1*6137*9*  1 

6530 

0*  0*  0*  0 

6540 

0*  0*  0*  0 

6550 

0*  0*  0*  0 

6560 

0*  0*  0*  0 

6570 

0*  0*  0*  0 

6580 

0*  0*  0*  0 

6590 

0*  0*  0*  0 

6600 

0*  0*  0*  0 

6610 

2268000*803800*0 

7010 

0*0 

7020 

0*0 

7030 

2371*0 

7040 

3 49  49*0 

7050 

122240*0 

7060 

1 1713*0 

7070 

0*0 

7080 

7471*  0 

7090 

15443*0 

7100 

600* 127 

7110 

252*  507 

7120 

0* 12055 

7130 

574*0 

7140 

0*0 

7150 

5065*0 

7160 

0*  4870 

7170 

0*0 

7180 

33986*0 
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7190  9635*0 
7200  21632*0 
7210  6.78*0  ' 

7220  41805*0 
7230  50020*0 
7240  0*0 
7250  32150*0 
7260  183*128 
7270  0*0 
7280  17799  4*0 
7290  0*0 
7300  28451*1860 
7510  .1*5200*1*2 
7520  .9*6035*1*2 
7530  . 1*  5296*  1*2 
7540  .9*5356*  1*2 
7550  0*0*  0*0 
7560  0*0*  0*0 
7570  0*0*  0*0 
7580  0*0*  0*0 
7590  0*0*  0*0 
7600  0*0*  0*0 
7610  15000*150000*0 
8010  0*0 
8020  3.86*0 
8030  5231*0 
8040  19311*29458 
8050  231817*0 
8060  22546*0 
8070  0*0 
8080  0* 1 1204 
8090  16244*18389 
8100  921*381 
8110  1151*24 
8120  20167* 13721 
8130  484*0 
8 1 40  0*  0 
8150  2740* 16834 
8160  0*5251 
8170  0*0 
8180  133287*0 
8190  51805*0 
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TABLE  3.6  (Cont) 


8200 

66314«0 

8210 

1 4.32> 11.19 

8220 

125863>  5648 

8230 

18186«  0 

8240 

183694«  1000 

8250 

56938^8000 

8260 

1 1 4*  1 54 

8270 

0,0 

8280 

389800*  0 

8290 

0*0 

8300 

38349*  31796 

8510 

.9*6000* 1*2 

8520 

.9*6000*  1*2 

8530 

. 1 * 6000*  1*2 

8540 

. 1*  6000*  1*2 

8550 

0*  0*  0*  0 

8560 

0*  0*  0*  0 

8570 

0*  0*  0*  0 

8580 

0*  0*  0*  0 

8590 

0*  0*  0*  0 

8600 

0*  0*  0*  0 

8610 

402040*  78  41 

9010 

0*  0 

9020 

0*0 

9030 

0*0 

9040 

0*0 

9050 

0*0 

9060 

0*0 

9070 

0*0 

9080 

0*0 

9090 

0*0 

9100 

0*0 

9110 

0*  0 

9120 

0*0 

9130 

0*0 

9140 

0*0 

9150 

0*0 

9160 

0*0 

9170 

0*0 

9180 

0*0 

9190 

0*0 

9200 

0*0 

TABLE  3.6  (Cont) 


9210 

0*0 

9220 

0>0 

9230 

OtO 

9240 

OsO 

9250 

0»0 

9260 

0,0 

9270 

0,0 

9280 

0,0 

9290 

0,0 

9300 

0,0 

9510 

0«  0,  0,  0 

9520 

0,  0,  0,  0 

9530 

0*0*  0«0 

9540 

0*0*  0*0 

9550 

0*  0*  0*  0 

9560 

0*  0*  0*  0 

9570 

0*  0*  0*  0 

9580 

0*  0*  0*  0 

9590 

0*  0*  0*  0 

9600 

0*  0*  0*  0 

9610 

0*  0*0 
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IV.  THE  NFO  TRAINING  SYSTEM  MODEL 


INTRODUCTION 

4.1  This  section  discusses  the  Naval  flight  officer  (NFO)  training  system 
option  of  the  LSR  module  of  the  Static  IFRS  model.  The  user  has  nearly  all  the 
capabilities  of  the  IFRS  model  for  the  NFO  system  that  he  has  for  the  pilot 
system.  Because  the  questions  and  print  options  are  the  same  for  both  models 
only  the  new  features  and  restrictions  are  discussed. 

GENERAL  PROCEDURE 

4.2  To  run  the  NFO  training  system  model,  the  user  runs  the  regular 
Static  IFRS  program.  However,  he  must  respond  with  a 2 to  the  third  question 
in  the  model . 

FNTKn  T1?AINING  FLOV  NO. 

1 FOH  PILOTS  P.  FOP  NFO.  CX)?2 


This  tells  the  model  to  access  the  appropriate  NFO  data  files.  (See  Section  V 
for  a discussion  of  the  data  file.) 

4.3  Because  additional  planning  factors  and  differences  in  the  training 
system  had  to  be  considered,  the  following  programming  changes  were  required 
in  order  for  IFRS  model  to  simulate  the  NFO  training  system: 

• Allow  six  following  training  phases  from  a given 
phase,  l.e. , one  phase  can  be  a prerequisite  for 
six  other  phases  (previously  there  were  three). 
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• Add  three  new  planning  factors 

. NFO  flight  instructor  utilization 

. NFO  flight  instruction  hours  required  to 
graduate  a student 

. NFO  flight  instructor  training  time. 

4.4  When  the  user  now  modifies  or  adds  a pipeline,  he  must  enter  data  or 
zeros  for  six  following  training  phases.  Because  of  the  second  change,  addi- 
tional instructor  information  must  be  printed.  This  is  printed  in  the  manpower 
summary  section.  A sample  of  this  printout  is  shown  in  Table  4.1.  The  line 
with  NFOs  on  it  refers  to  NFO  flight  instructors.  The  support  and  administrative 
officers  are  calculated  as  a function  of  the  total  number  of  instructors. 

4.5  When  the  user  runs  the  simple  constraint  calculations  for  NFOs,  the 
model  Includes  the  NFO  flight  instructors  and  those  under  training  in  its  computa- 
tions. The  planning  factors  for  the  runway  and  airspace  calculations  were  not 
available  and  thus  hypothetical  values  are  presently  in  the  data  files  (i.e., 

data  file  NFORUNDA  and  NACDA*). 

Differences  in  Pilot  and  NFO  Usage 

4.6  Since  the  IFRS  model  was  initially  designed  for  the  planning  factors 
associated  with  the  pilot  training  system  and  the  Navy  desired  to  use  either 
pilot  or  NFO,  the  inclusion  of  the  additional  NFO  planning  factors  had  to  be 
carefully  handled.  Consequently,  user  flexibility  is  reduced.  The  main  re- 
strictions are  listed  as  follows: 

• Features  under  level  3 or  4 are  not  as  extensive  as 
they  are  in  the  pilot  model. 

. The  option  to  modify  or  list  the  planning  factors 
in  a phase  does  not  Include  the  three  additional 
NFO  planning  factors. 

. The  option  to  delete  or  add  a training  phase 
does  not  include  the  three  new  planning 
factors . 

. The  three  new  planning  factors  are  not  validated 
when  they  are  read  from  the  data  file. 

. The  three  new  planning  factors  are  not  included 
if  the  data  file  SAVBCS  is  generated. 

• Only  the  data  files  associated  with  the  LSR  module  will 
be  accessed  automatically.  If  the  user  wants  to  run  the 
complete  Static  IFRS  model  to  obtain  total  system  cost, 
the  pilot  aircraft  data  file  (ACDAT*)  must  be  replaced  by 
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TABLE  4 . 1 

NFO  INSTRUCTOR  SUMMARY 


I 


I 


I 

I 

I 

I 

I 

I 

! 

I 


♦FLIGHT 

INSTRUCTORS^ 

LSO 

ADMIN 

TOTAL 

TOTAL 

TRAINING  PHASE 

EFFECT 

lUT 

TOTAL 

REQMT 

OFF 

OFF 

ENL 

AOC  SCHOOL 

0. 

0. 

0. 

0. 

3. 

3. 

0. 

NFO*S 

0. 

0. 

0. 

ENVIRO  INDOC 

0. 

0. 

0. 

0. 

2 • 

2. 

0. 

NFO'S 

0. 

0. 

0. 

VT-10(TC-45) 

9. 

1 . 

11  . 

0. 

10. 

21  . 

42. 

NFO'S 

0. 

0. 

0. 

JET  FAM 

0. 

0. 

0. 

0. 

1 . 

1 . 

0. 

NFO'S 

0. 

0. 

0. 

RIO 

21  . 

3. 

24. 

0. 

8. 

43. 

165. 

NFO'S 

10. 

1 . 

12. 

BJN 

7. 

1 . 

8. 

0. 

3. 

19. 

56. 

NFO'S 

7. 

1 . 

8. 

VT-29 

21  . 

3. 

24. 

0. 

7. 

43. 

124. 

NFO'S 

11  . 

1 . 

12. 

AELW 

1 • 

0. 

1 • 

0. 

1 . 

4. 

25. 

NFO'S 

1 • 

0. 

1 • 

AIC 

1 • 

0. 

1 • 

0. 

0. 

2. 

4. 

NFO'S 

0. 

0. 

0. 

ATDS 

1 • 

0. 

1 • 

0. 

1 . 

2. 

14. 

NFO'S 

1 » 

0. 

1 • 

AEV 

1 • 

0. 

1 • 

0. 

1 . 

2. 

14. 

NFO'S 

1 • 

0. 

1 • 

AIC 

1 • 

0. 

1 • 

0. 

0. 

1 . 

3. 

NFO'S 

0. 

0. 

0. 

ASAC 

1 . 

0. 

1 . 

0. 

0. 

1 . 

3. 

NFO'S 

0. 

0. 

0. 

VT-IO(T-IA) 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

NFO'S 

0. 

0. 

0. 

AIC -OTHER 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

NFO'S 

0. 

0. 

0. 
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the  NFO  aircraft  data  file  (NACDA*)  prior  to  the  start 
of  the  run.  Also  no  additional  base  specific  informa- 
tion is  included  in  the  NFO  training  system  (l.e. , 
only  the  nine  existing  bases  are  available). 

• Per  the  Navy's  request,  the  pilot  and  NFO  training 
systems  cannot  be  run  simultaneously.  The  reasons  are: 

. The  model  is  restricted  to  a maximum  of  25 
training  phases  in  a system  (currently  NFO 
and  pilot  have  15  each). 

. The  NFO  model  contains  additional  planning 
factors . 

. The  model  permits  only  21  aircraft  types, 
including  tenant  aircraft. 

. Longer  run  time  is  required  for  every  run 

through  the  LSR  module  if  both  are  combined. 

The  last  restriction  can  be  partially  overcome  in  several  ways. 

4 .7  How  to  Run  Total  Static  IFRS  Model  for  NFO.  To  Include  all  or  part 
of  the  NFO  training  system  in  the  total  system  cost, the  following  suggestions 
are  made: 

• To  get  the  cost  of  just  adding  the  NFO  system  in  with 
the  pilot  system,  run  the  NFO  model  and  set  all  the 
tenant  data  to  zero  in  data  file  BASED*.  These  results 
are  pure  NFO  requirements.  The  user  can  then  treat  the 
NFO  personnel  as  additional  tenants  in  the  pilot  system 
to  determine  Incremental  facilities  requirements.  How- 
ever, the  user  is  still  limited  by  the  number  of  types  of 
aircraft.  Since  the  NFOs  require  little  flying,  the  error 
should  be  minimal. 

• If  the  user  only  wants  to  see  the  effect  of  combining  a 
few  NFO  phases  with  the  pilot  systems, the  best  way 
is  to  assume  those  NFO  phases  are  additional  pilot 
phases  and  add  a new  pipeline  to  Include  those 
phases.  Some  error  may  be  introduced  because  this 
will  not  consider  the  NFO  flight  Instructors;  however, 
this  can  be  overcome  by  adjusting  the  regular  flight 
instructor  factor.  Also  the  attrition  rates  in  the 
pipeline  will  have  to  be  adjusted  to  reflect  the  com- 
bined NFO  system  attrition  rate. 

• A much  more  complicated  way  requires  that  the  user 
becomes  familiar  with  the  data  files  LSROUT  and 
RUNWAY  generated  by  the  Static  IFRS  model.  These 
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files  could  be  saved  after  a pilot  and  NFO  run  and 
only  those  phases  of  interest  could  be  extracted 
and  set  up  into  new  composite  files.  Then,  when 
the  user  enters  PART2*,  the  new  LSROUT  and 
RUNWAY  files  will  be  accessed.  This  method  re- 
quires that  the  aircraft  data  file  be  modified.  How- 
ever, the  total  system  cost  of  only  those  phases 
considered  will  be  calculated. 

4.8  The  user  does  not  have  the  flexibility  he  has  with  the  pilot  training 
system.  However,  the  LSR  section  is  completely  automatic  and  identical  to 
the  pilot  system  for  levels  1 and  2.  Because  little  flying  time  is  required 
and  also  since  many  of  the  bases  where  NFO  training  is  conducted  are  not 
included,  an  accurate  system  cost  is  not  easily  calculated. 
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V.  NFO  DATA  FILES 


INTRODUCTION 

5.1  The  purpose  of  this  section  is  to  discuss  and  list  the  data  files  for 
the  NFO  training  system.  Because  the  data  files  are  read  by  the  same  Static 
IFRS  program,  their  format  and  data  content  are  the  same  as  the  pilot  data  files. 
To  determine  the  proper  planning  factor  on  each  line,  the  user  must  refer  to 
the  IFRS  II  User's  Manual. i' 

DATA  FILES 

5.2  Because  the  NFO  data  files  are  similar  in  content  to  the  pilot  data 
files,  they  were  given  similar  names.  The  relationship  is  shown  in  the  fol- 
lowing chart: 


Data  Files 

Pilot 

NFO 

BAS  CAS 

NFOBASCA 

PIPE 

NFOPIPE 

RUN  DAT 

NFORUNDA 

ACDAT* 

NACDA* 

1/  The  Phase  II  Static  IFRS  is  documented  in  ORI  Technical  Report  583,  Develop- 
ment of  a Preliminary  Automated  Total  Systems  Model  for  the  Integrated  Facilities 
Requirements  Study  (IFRS)  Phase  II.  9 February  1970.  Volume  III  is  the  User's 
Manual  and  Volume  IV  is  the  Programmer's  Manual. 
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5.3  The  data  files  are  listed  in  Tables  5.1  to  5.4  in  this  section.  Only 
two  files  contain  changed  format,  NFOPIPE  and  NFOBASCA.  Data  file  NFOPIPE 
now  requires  data  or  zeros  for  six  following  phases . (This  same  change  now 
applies  to  pilot  PIPE  file  also.)  Data  file  NFOBASCA  has  three  additional  lines 
of  data  added  to  the  end  of  each  training  phase  block.  These  data  are  for  the 
following  planning  factors  (variable  names  are  in  parentheses): 

• NFO  flight  instructor  utilization  (FUN) 

• NFO  flight  instructor  hours  per  student  (FIHN) 

• Time  to  train  (months)  an  NFO  flight  instructor 
(FTRN). 

The  user  can  use  free  formatting  for  all  lines  in  NFOBASCA. 

5.4  All  other  NFO  data  files  have  the  same  description  as  the  pilot  data 
files.  Thus  the  user  who  is  familiar  with  them  will  have  no  trouble  with  the 
additional  NFO  data  files. 
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TABLE  5.1 
DATA  HLE  NFOPIPE 


1000 

1005 

12NAVY 
3 0 

OFFICER 
0 0 0 

0 

2 

.04 

1010 

4 

7 

8 

9 

11 

0 

3 

.12 

1015 

5 

6 

0 

0 

0 

0 

4 

.0 

1020 

0 

0 

0 

0 

0 

0 

5 

.20 

1025 

0 

0 

0 

0 

0 

0 

6 

.03 

1030 

0 

0 

0 

0 

0 

0 

7 

.02 

1035 

0 

0 

0 

0 

0 

0 

8 

.02 

1040 

10 

0 

0 

0 

0 

0 

9 

.03 

1045 

0 

0 

0 

0 

0 

0 

10 

.05 

1050 

12 

0 

0 

0 

0 

0 

11 

.03 

1055 

13 

0 

0 

0 

0 

0 

12 

.03 

1060 

0 

0 

0 

0 

0 

0 

13 

.03 

1065 

1070 

12NAVY 
3 0 

0 

AOC 

0 

0 

0 

1 

.10 

1075 

4 

7 

8 

9 

11 

0 

3 

.12 

1080 

5 

6 

0 

0 

0 

0 

4 

.0 

1085 

0 

0 

0 

0 

0 

0 

5 

.20 

1090 

0 

0 

0 

0 

0 

0 

6 

.03 

1095 

0 

0 

0 

0 

0 

0 

7 

.02 

1100 

0 

0 

0 

0 

0 

0 

8 

.02 

1105 

10 

0 

0 

0 

0 

0 

9 

.03 

•1110 

0 

0 

0 

0 

0 

0 

10 

.05 

1115 

12 

0 

0 

0 

0 

0 

11 

.03 

1120 

13 

0 

0 

0 

0 

0 

12 

.03 

1125 

0 

0 

0 

0 

0 

0 

13 

.03 

1130 

1135 

5MARINE 
3 0 0 

0 

0 

0 

2 

.02 

1140 

4 

0 

0 

0 

0 

0 

3 

.05 

1145 

5 

6 

0 

0 

0 

0 

4 

.0 

1150 

0 

0 

0 

0 

0 

0 

5 

.12 

1155 

0 

0 

0 

0 

0 

0 

6 

.01 

1160 

1165 

9 NAVY 
0 0 

REFRESH 
0 0 0 

0 

5 

.0 

1170 

0 

0 

0 

0 

0 

0 

6 

.0 

1175 

0 

0 

0 

0 

0 

0 

7 

.0 

1180 

0 

0 

0 

0 

0 

0 

8 

.0 

1185 

10 

0 

0 

0 

0 

0 

9 

.0 

1190 

0 

0 

0 

0 

0 

0 

10 

.0 

1195 

12 

0 

0 

0 

0 

0 

11 

.0 

1200 

13 

0 

0 

0 

0 

0 

12 

.0 

1205 

0 

0 

0 

0 

0 

0 

13 

.0 

1210 

1215 

7 OTHER 
0 0 0 

0 

0 

0 

8 

.0 

1220 

10 

0 

0 

0 

0 

0 

9 

.0 

1225 

0 

0 

0 

0 

0 

0 

10 

.0 

1230 

12 

0 

0 

0 

0 

0 

11 

.0 

1235 

13 

0 

0 

0 

0 

0 

12 

.0 

1240 

0 

0 

0 

0 

0 

0 

13 

.0 

1245 

0 

0 

0 

0 

0 

0 

15 

.0 

1250 

-99END 

OF 

FILE 
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TABLE  5.2 

DATA  FILE  NFOBASCA 


1000  NY# 

1005  1#156#48#1 
1010  1000# 1000# 1000# 1000 
1015  1000#1015#1000#48 
1020  50  50  1020 
1025  15 

1030  AOC  SCHOOL 
1035  0 0 

1040  .5#10#0 
1045  1.0#0#0 
1050  0#0#0 
1055  5#0#0 
1060  0#0#0 
1065  0#0#0 
1070  50#0#0 
1075  0#0#0 
1080  0#0#0 
1085  0#0#0 
1090  489#0#0 
1095  700#0#0 
1100  3#0#0 
1105  0#0#0 
1110  0#0#0 
1115  3#0#0 
1120  ENVIRO  INDOC 
1125  0 0 

1130  .5#5#0 
1135  1.0#0#0 
1140  0#0#0 
1145  5#0#0 
1150  0#0#0 
1155  0#0#0 
1160  50#0#0 
1165  0#0#0 
1170  0#0#0 
1175  0#0#0 
1180  200#0#0 
1185  700#0#0 
1190  3#0#0 
1195  0#0#0 
1200  0#0#0 
1205  3#0#0 
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TABLE  5.2  (Cont) 


JWJ  BiH 


1210  VT-10(TC-45)TC45 
1215  1 0 

1220  .5«16«24 
1225  •90»0»0 
1230  0,0#0 
1235  3.75^0,0 
1240  3t0»0 
1245  6.7*0>0 
1250  7,2»0»0 
1255  3#0*0 
1260  0,0,0 
1265  5*04«0<0 
1270  0#0*0 
1275  0»0*0 
1280  0#0#0 
1285  3*0*0 
1290  0*0*0 
1295  3*0*0 
1300  JET  FAM 
1305  0 0 

1310  .5*3*0 
1315  1 .0*0  0 
1320  0*0*0 
1325  5*0*0 
1330  0*0*0 
1335  0*0*0 
1340  50*0*0 
1345  0*0*0 
1350  0*0*0 
1355  0*0*0 
1360  200*0*0 
1365  700*0*0 
1370  3*0*0 
1375  0*0*0 
1380  0*0*0 
1385  3*0*0 


AGAS 


[ 
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1390 

1395 

1400 

1405 

1410 

1415 

1420 

1425 

1430 

1435 

1440 

1445 

1450 

1455 

1460 

1465 

1470 

1475 

1480 

1485 

1490 

1495 

1500 

1505 

1510 

1515 

1520 

1525 

1530 

1535 

1540 

1545 

1550 

1555 

1560 

1565 


TABLE  5.2 


RIO  T-39  AGAS 

1 0 

•5j9.8«24 
• 93#  0#0 
0#0#0 
3 • 5#  0#  0 
2.5#0#0 
53  *3#0#0 
53.3  0#0 
3#0#0 
0#0*0 
9.16#0#0 
0#0#0 
0#0#0 
0#0#0 
2 • 5#0#  0 
26  *6#0#0 
3#0#0 

BJN  T-39  AGAS 

1 0 
•5#4#24 
•95#0#0 
0#0#0 
3.5#0#0 
2.5#0#0 
18.6#0#0 
18.6#0#0 
3#0#0 
0#0#0 
9.16#0#0 
0#0#0 
0#0#0 
0#0#0 
2.5#0#0 
18*6#0#0 
3#0#0 


(Cont) 


* 


* 
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TABLE  5.2  (Cont) 


1570 

VT-29 

1575 

1 0 

1580 

.5« 12«24 

1585 

.90*0,0 

1590 

0*0,0 

1595 

3.25*0,0 

1600 

3 . 3*  0*  0 

1605 

18.8*0,0 

1610 

60*0,0 

1615 

3*0,0 

1620 

0*0,0 

1625 

15.19*0,0 

1630 

0*0,0 

1635 

0*0,0 

1640 

0*0,0 

1645 

3 . 3*  0*  0 

1650 

30*0,0 

1655 

3*0,0 

1660 

AELW 

1665 

1 0 

1670 

. 5*  7.6*  24 

1675 

.99*0,0 

1680 

0*0,0 

1685 

3.12*0,0 

1690 

3*0,0 

1695 

5 .2*  0*  0 

1700 

10.4*0,0 

1705 

3*0,0 

1710 

0*0,0 

1715 

37.5*0,0 

1720 

0*0,0 

1725 

0*0,0 

1730 

0*0,0 

1735 

3*0,0 

1740 

1 1 .5*0,0 

1745 

3*0,0 

T-29 


C121 


JP-4 


AGAS 


* 


* 
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TABLE  5.2  (Cont) 


1 

111 

,1 


1750 

AIC 

T-33 

JP-4 

* 

1755 

1 0 

1760 

• 5«  6 »6«  24 

1765 

•90«0«0 

1770 

0«0«0 

1775 

3*15«0«0 

1780 

2.1«0«0 

1785 

12.7«0«0 

1790 

12.7«0«0 

1795 

1800 

0«0«0 

1805 

3.99«0«0 

1810 

0«0«0 

1815 

0«0«0 

1820 

0«0«0 

1825 

2.1«0«0 

i 

« 

1830 

0«0«0 

J 

j 

1835 

3«0«0 

< 

1840 

AIDS 

C121 

AQAS 

« 

.1 

1845 

1 0 

1 

1850 

•5«12«24 

j 

1855 

•99«0«0 

i 

1860 

0«0«0 

i 

1865 

3*12«0«0 

J 

1870 

3#0«0 

1875 

5*7«0«0 

■| 

1880 

1 1 .4«0«0 

1 

j 

1885 

3«0«0 

! 

1890 

0«0«0 

1 

1895 

37.5#0»0 

I 

1900 

0«0«0 

j 

1905 

0«0«0 

I 

1910 

0«0«0 

j 

1915 

3«0«0 

' 

1920 

12«0«0 

j 

1925 

3«0«0 

! 
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TABLE  5.2  (Cont) 


1930 

AEV 

1935 

1 0 

1940 

.5j5«24 

1945 

.99*0#0 

1950 

0«0>0 

1955 

3.12>0«0 

1960 

3#0»0 

1965 

7.9>0*0 

1970 

15.8«0«0 

1975 

3>0#0 

1980 

0#0#0 

1985 

37.5  0*0 

1990 

O^O^O 

1995 

0«0«0 

2000 

0*0#0 

2005 

3*0*0 

2010 

20 .3*0*0 

2015 

3*0*0 

2020 

AIC 

2025 

1 0 

2030 

.5*6.6*24 

2035 

.90*0*0 

2040 

0*0*0 

2045 

3.15*0*0 

2050 

2. 1*0*0 

2055 

12.7*0*0 

2060 

12.7*0*0 

2065 

3*0*0 

2070 

0*0*0 

2075 

3.99*0*0 

2080 

0*0*0 

2085 

0*0*0 

2090 

0*0*0 

2095 

2. 1*0*0 

2100 

0*0*0 

2105 

3*0*0 

AGAS 


JP-4 
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TABLE  5.2  (Cont) 


2110 

ASAC 

2115 

1 0 

2120 

•5«4.2«24 

2125 

«86«0#0 

2130 

0«0«0 

2135 

4.62«0«0 

2140 

2 *2«0«0 

2145 

10.8«0«0 

2150 

10.8«0«0 

2155 

3«0«0 

2160 

0«0*0 

2165 

8.89«0«0 

2170 

0«0«0 

2175 

0,0,0 

2180 

0,0,0 

2185 

2 *2, 0, 0 

2190 

0,0,0 

2195 

3,0,0 

2200 

VT-IO(T-IA) 

2205 

1 0 

2210 

.5,16,24 

2215 

.90,0,0 

2220 

0,0,0 

2225 

1 .63,0,0 

2230 

3,0,0 

2235 

3,0,0 

2240 

3 .2, 0 , 0 

2245 

3,0,0 

2250 

0,0,0 

2255 

5.51,0,0 

2260 

0,0,0 

2265 

0,0,0 

2270 

0,0,0 

2275 

3,0,0 

2280 

0,0,0 

2285 

3,0,0 

TS2A 


T-IA 


AGAS 


JP-4 


* 


* 
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TABLE  5.2  (Cont) 


2290 

AIC-OTHER 

2295 

1 0 

2300 

• 5>  6 • 6#  24 

2305 

.90*0j0 

2310 

0>0>0 

2315 

3.15^0*0 

2320 

2.1«0«0 

2325 

12.7#0^0 

2330 

12.7,0^0 

2335 

3,0,0 

2340 

0,0,0 

2345 

3.99,0,0 

2350 

0,0,0 

2355 

0,0,0 

2360 

0,0,0 

2365 

2. 1,0,0 

2370 

0,0,0 

2375 

3,0,0 
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TABLE  5.3 

DATA  FILE  NFORUNDA 


1000  1VT-10(TC-45)TC45 

1005  9.25  10.0  10.9  11.9  12.5  13.0 
1010  13.0  12.2  11.4  10.5  9.5  9.2 
1015  .15  .5 

1020  .65  .65  .8  .8  .85  .9 

1025  .9  .85  .8  .8  .75  .7 

1030  10  0 0 

1035  1 0 0 

1040  .01  0 0 

1045  .01  0 0 

1050  100  0 0 

1055  10  0 0 

1060  .01  0 0 

1065  .10  0 0 

1070  000 

1075  .08  0 0 

1080  IRIO  T-39 

1085  9.25  10.0  10.9  11.9  12.5  13.0 
1090  13.0  12.2  11.4  10.5  9.5  9.2 
1095  .15  .5 

1100  .65  .65  .8  .8  .85  .9 

1105  .9  .85  .8  .8  .75  .7 

1110  10  0 0 

1115  1 0 0 

1120  .01  0 0 

1125  .01  0 0 

1130  100  0 0 

1135  10  0 0 

1140  .01  0 0 

1145  .10  0 0 

1150  0 0 0 

1155  .08  0 0 

1160  IBJN  T-39 

1165  9.25  10.0  10.9  11.9  12.5  13.0 
1170  13.0  12.2  11.4  10.5  9.5  9.2 
1175  .15  .5 

1180  .65  .65  .8  .8  .85  .9 
1185  .9  .85  .8  .8  .75  .7 
1190  10  0 0 
1195  1 0 0 
1200  .01  0 0 
1205  .01  0 0 
1210  100  0 0 
1215  10  0 0 
1220  .01  0 0 
1225  .10  0 0 
1230  000 
1235  .08  0 0 
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TABLE  5.3  (Cont) 


1240 

lVT-29 

T-29 

1245 

9.25  10.0 

10.9  11.9  12.5  13.0 

1250 

13.0  12.2 

1 1 .4  10.5  9.5  9.2 

1255 

.15  .5 

1260 

.65  .65  .8 

.8  .85  .9 

1265 

.9  .85  .8 

.8  .75  .7 

1270 

10  0 0 

1275 

1 0 0 

1280 

.01  0 0 

1285 

.01  0 0 

1290 

100  0 0 

1295 

10  0 0 

1300 

.01  0 0 

1305 

.10  0 0 

1310 

0 0 0 

1315 

.08  0 0 

1320 

lAELV 

C121 

1325 

9.25  10.0 

10.9  11.9  12.5  13.0 

1330 

13.0  12.2 

1 1 .4  10.5  9.5  9.2 

1335 

.15  .5 

1340 

.65  .65  .8 

.8  .85  .9 

1345 

.9  .85  .8 

.8  .75  .7 

1350 

10  0 0 

1355 

1 0 0 

1360 

.01  0 0 

1365 

.01  0 0 

1370 

100  0 0 

1375 

10  0 0 

1380 

.01  0 0 

1385 

.10  0 0 

1390 

0 0 0 

1395 

.08  0 0 

1400 

lAIC 

T-33 

1405 

9.25  10.0 

10.9  11.9  12.5  13.0 

1410 

13.0  12.2 

1 1 .4  10.5  9.5  9.2 

1415 

.15  .5 

1420 

.65  .65  .8 

.8  .85  .9 

1425 

.9  .85  .8 

.8  .75  .7 

1430 

10  0 0 

1435 

1 0 0 

1440 

.01  0 0 

1445 

.01  0 0 

1450 

100  0 0 

1455 

10  0 0 

1460 

.01  0 0 

1465 

.10  0 0 

1470 

0 0 0 

1475 

.08  0 0 
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TABLE  5.3  (Cont) 


I 


I 


1480 

lATDS 

C121 

1485 

9.25  10.0 

10.9  11.9  12.5  13.0 

1490 

13.0  12.2 

11.4  10.5  9.5  9.2 

1495 

.15  .5 

1500 

.65  .65  .8 

.8  .85  .9 

1505 

.9  .85  .8 

.8  . 75  . 7 

1510 

10  0 0 

1515 

1 0 0 

1520 

.01  0 0 

1525 

.01  0 0 

1530 

100  0 0 

1535 

10  0 0 

1540 

.01  0 0 

1545 

.10  0 0 

1550 

0 0 0 

1555 

.08  0 0 

1560 

lAEW 

C121 

1565 

9.25  10.0 

10.9  11.9  12.5  13.0 

1570 

13.0  12.2 

1 1 .4  10.5  9.5  9.2 

1575 

.15  .5 

1580 

.65  .65  .8 

.8  .85  .9 

1585 

.9  .85  .8 

*8  .75  .7 

1590 

10  0 0 

1595 

1 0 0 

1600 

.01  0 0 

1605 

.01  0 0 

1610 

100  0 0 

1615 

10  0 0 

1620 

.01  0 0 

1625 

.10  0 0 

1630 

0 0 0 

1635 

.08  0 0 

1640 

lAlC 

T-33 

1645 

9.25  10.0 

10.9  11.9  12.5  13.0 

1650 

13.0  12.2 

11.4  10.5  9.5  9.2 

1655 

.15  .5 

1660 

.65  .65  .8 

.8  .85  .9 

1665 

.9  .85  .8 

.8  .75  .7 

1670 

10  0 0 

1675 

1 0 0 

1680 

.01  0 0 

1685 

.01  0 0 

1690 

100  0 0 

1695 

10  0 0 

1700 

.01  0 0 

1705 

.10  0 0 

1710 

0 0 0 

1715 

.08  0 0 
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TABLE  5. 

3 (Cont) 

1720 

lASAC  TS2A 

1725 

9.25  10.0  10.9  11.9  12.5 

13.0 

1730 

13.0  12.2  11.4  10.5  9.59 

.2 

1735 

.15  .5 

1740 

.65  .65  .8  .8  .85  .9 

1745 

.9  .85  .8  .8  .75  .7 

1750 

10  0 0 

1755 

1 0 0 

1760 

.01  0 0 

1765 

.01  0 0 

1770 

100  0 0 

1775 

10  0 0 

1780 

.01  0 0 

1785 

.10  0 0 

1790 

0 0 0 

1795 

.08  0 0 

1800 

IVT-IOCT-IA)  T-IA 

1805 

9.25  10.0  10.9  11.9  12.5 

13.0 

1810 

13.0  12.2  11 .4  10.5  9.5  9 

.2 

1815 

.15  .5 

1820 

.65  .65  .8  .8  .85  .9 

1825 

.9  .85  .8  .8  .75  .7 

1830 

10  0 0 

1835 

1 0 0 

1840 

.01  0 0 

1845 

.01  0 0 

1850 

100  0 0 

1855 

10  0 0 

1860 

.01  0 0 

1865 

.10  0 0 

1870 

0 0 0 

1875 

.08  0 0 

1880 

lAIC-OTHER  T-33 

1885 

9.25  10.0  10.9  11.9  12.5 

13.0 

1890 

13.0  12.2  11 .4  10.5  9.5  9 

*2 

1895 

.15  .5 

1900 

.65  .65  .8  .8  .85  .9 

1905 

.9  .85  .8  .8  .75  .7 

1910 

10  0 0 

1915 

1 0 0 

1920 

.01  0 0 

1925 

.01  0 0 

1930 

100  0 0 

1935 

10  0 0 

1940 

.01  0 0 

1945 

.10  0 0 

1950 

0 0 0 

1955 

.08  0 0 
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TABLE  5.4 
DATA  FILE  NACDA* 


1011  TC45 

1012  34.2#47.7,62.7#87.7 

1013  24«48j 144*96 

1014  175*5*50 

1015  5000*1*2 

1016  1*1 
1017  1000 

1021  T-39 

1022  25*8*32.8*47.8*72.8 

1023  24*48*144*96 

1024  175*5*50 

1025  3000*1*2 

1026  40*2.57 

1027  150 

1031  T-29 

1032  31*31*69.2*90 

1033  24*48*144*96 

1034  175*5*50 

1035  5000*1*2 

1036  1*1 

1037  1000 

1041  C121 

1042  116*2*123*143*163 

1043  24*48*144*96 

1044  525*30*200 

1045  8000*2*1 

1046  1*1 

1047  1000 

1051  T-33 

1052  31*31*69.2*90 

1053  24*48*144*96 

1054  175*5*50 

1055  5000*1*2 

1056  1*1 

1057  1000 

1061  TS2A 

1062  34*35*46*50 

1063  15*24*144*60 

1064  400*8*115 

1065  8000*2*1 

1066  2000*14.89 

1067  179 


I 

I 


TABLE  5.4  (Cont) 


1071  T-IA 

1072  38.8»38.8»74.7«90 

1073  24«48«144«96 

1074  375«8«110 

1075  5000#  1 #2 

1076  1#1 

1077  1000 

1081  ZERO 

1082  0#0#0#0 

1083  0#0#0#0 

1084  0#0#0 

1085  0#0#0 

1086  0#0 
1087  0 

1091  ZERO 

1092  0#0#0j0 

1093  0#0#0#0 

1094  0#0#0 

1095  0«0#0 

1096  0#0 

1097  0 

1101  ZERO 

1102  0#0#0#0 

1103  0#0#0#0 

1104  0#0#0 

1105  0#0#0 

1106  0#0 
1107  0 
nil  ZERO 
1112  0#0#0#0 

1113  0#0#0#0 

1114  0#0#0 

1115  0#0«0 

1116  0«0 
1117  0 

1121  ZERO 

1122  0#0#0#0 

1123  0#0#0#0 

1124  0#0#0 

1125  0#0#0 

1126  0#0 
1127  0 
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TABLE  5.4  (Cont) 


1131  ZERO 

1132  0, 0*0*0 

1133  0«0«0«0 

1134  0«0«0 

1135  0«0«0 

1136  0*0 

1137  0 

1141  ZERO 

1142  0*0«0*0 

1143  0*0*0*0 

1144  0*0*0 

1145  0*0*0 

1146  0*0 

1147  0 

1151  ZERO 

1152  0*0*0*0 

1153  0*0*0*0 

1154  0*0*0 

1155  0*0*0 

1156  0*0 

1157  0 

1161  VF 

1162  34.5*34.5*67.9*90 

1163  15*24*144*60 

1164  375*8*110 

1165  0*2*1 

1166  50300*1 

1167  0 

1171  VT 

1172  35.5*35.5*68*90 

1173  24*48*144*96 

1174  375*8*110 

1175  0*1*2 

1176  180000*2 

1177  0 

1181  VR 

1182  93.9*117.5*137.5*157.5 

1183  6*12*144*24 

1184  350*15*125 

1185  0*2*2 

1186  189000*2 

1187  0 


I 


i 
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TABLE  5.4  (Cont) 


1191  VO 

1192  27.7,37.2*57.2,77.2 

1193  24,48,144,96 

1194  175,5,50 

1195  0,1,2 

1196  5000,2 

1197  0 

1201  VW 

1202  40,50,65,90 

1203  6,12,144,12 

1204  900,50,275 

1205  0,2,2 

1206  360000,2 

1207  0 

1211  H 

1212  52.2,44,66,110 

1213  12,20,144,24 

1214  250,8,75 

1215  0,1,2 

1216  18700,2 

1217  0 
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VI. 


PROGRAMMING  CHANGES 


6.1  Changes  were  made  in  the  Static  IFRS  programs  for  the  following 
reasons: 

• To  include  the  NFO  training  system 

• To  make  requested  print  changes 

• To  correct  previously  undetected  errors 

• To  allow  the  Dynamic  IFRS  model  to  use 
some  of  the  Static  IFRS  programs  (LSRl 
and  LSR2) . 

6.2  In  the  following  sections  of  this  manual,  those  programs  that  have 
been  changed  are  discussed.  Either  a listing  of  the  program  or  a listing  of 
the  lines  changed  is  given.  In  most  cases  the  discussion  of  the  change  is 

all  that  is  given,  since  little,  if  any,  of  the  program  logic  and  flow  is  affected. 
The  original  Phase  II  line  numbers  were  preserved  (i.e. , programs  were  not 
resequenced)  and  thus  the  new  lines  can  be  readily  identified. 


VII . PROGRAM  LSRM 


7.1  The  new  version  of  program  LSRM  is  given  in  Table  7.1.  The  changes 
are: 

• Three  NFO  planning  factor  variables  have  been 
added  to  common  (line  number  190) 

. NFO  flight  instructor  utilization  (FUN) 

. NFO  flight  instructor  hours  per  student 
(FIHN) 

. NFO  flight  instructor  training  period 
(FTRN) 

• Question  1 (level  of  complexity)  changed  (in 
format  number  700) . 
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TABLE  7 . 1 

PROGRAM  LSRM  LISTING 


99C  - - LSRM  R/19/70 

100  COMMON  IY*ISW*SW(2),IS(7) 

120  COMMON  NAME(25>3)>NPLA(25^ 3)»NFUEL(25,3) *NACD(25,3)>ATP(25), 

lAO  &WK(25)^T0D(25),NAC<25) jNAD(25),ra(25,3)*GAS(25,3),ATK25, 

160  AFU(25,3)^SFH(25>3)>FIH(25^ 3),FTF(25> 3)>FS0(25>3),AM0(25, 

180  «ASH(25^3)>AIHC25>3),AITRC25>3) 

190  COMMON  FUN(25>3)*FIHN(25^3)>FTRN(25,3) 

200  COMMON  ICOMMA,IBLANK,NO,NYES*NY,NPH,IER^LEVLSR,IPH,WPY^ 

220  &AFD,KILL#IID,FID>KILLSC25)>SI (25),TS0UTC25), S0C25) 

2A0  COMMON  I BC > I L> I P> N, I TEM, I DEL( 5 1 ) ,BMAX( 1 5 ) 

260  KILL=0 

280  IBC=0 

300  IF(ISC7) .NE.O)GO  TO  200 

320  5 PRINT  700 

3A0  10  INPUT  701,LEVLSR 

360  IF(LEVLSR)30,30,20 

380  20  IF(LEVLSR-A>A0,A0,3O 

AOO  30  PRINT  702 

A20  GO  TO  10 

AAO  AO  PRINT  703 

A60  50  INPUT,WPY,AFD 

A80  IF(WPY)90>90#60 

500  60  IF(UPY-52.)70>70>90 

520  70  IF(AFD)90,90,80 

5A0  80  IF(AFD-365.)100j 100,90 

560  90  PRINT  702 

580  GO  TO  50 

600  100  1SU=LEVLSR 

620  SU(1)=AFD 

6A0  SW(2)=WPY 

660  200  LEVLSR=ISW 

680  IFCLEVLSR.EQ.O)GO  TO  5 

700  AFD=SWC 1 ) 

720  UPY=SW(2) 

7A0  1F(IS(7) .EQ.2)LEVLSR=-LEVLSR 

760  CHAIN”XLSR1*" 

780  700  F0RMATC26H  ENTER  LEVEL  OF  COMPLEXITY/  " 1 LIMITED 

800  A DATA  INPUT/OUTPUT  - NO  ADJUSTMENTS  OR  MODIFICATIONS"/ 

820  A"  2 DETAILED  INPUT/OUTPUT  - OPTION  TO  CONSTRAIN  LSR 

822  A OUTPUT"/"  3 MODIFY  PHASE  DATA"/"  A COMBINE 

82A  A OPTIONS  2 AND  3") 

RAO  701  FORMATdl) 

860  703  FORMAT!"  ENTER  TRAINING  WEEKS  PER  YEAR"/"  AND  ANNUAL  FLY- 

880  ADAYS  (XX., XXX.)") 

900  702  FORMAT (23H  INVALID  REPLY  - REPEAT) 

920  END 
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VIII. 


PROGRAM  I5R1 


8.1  Program  LSRl  is  listed  in  Table  8.1.  The  main  changes  in  this  pro- 
gram resulted  from  the  addition  of  the  NFO  option  and  the  entry  from  the  Dynamic 
IFRS  model  to  read  the  data  files . The  changes  are  confined  to  the  main  pro- 
gram (line  101  to  1441).  Most  of  the  changes  are  easily  found  since  they  have 
different  line  numbers.  The  original  Phase  II  line  numbers  were  preserved  for 
the  program  and  thus  the  new  line  numbers  are  easily  identified. 

8.2  The  changes  made  were: 

• Addition  of  NFO  planning  factors  to  the  common 
area  of  storage.  This  had  to  be  done  in  each 
subroutine  (e.g.,  lines  191,  4971,  6031)  and 
required  225  additional  words  of  storage. 

• Option  to  use  pilot  or  NFO  data  files.  This 
option  is  stored  in  ISWTCH(5)  (lines  251  to 
261) . Then  based  on  ISWTCH(5) 

. The  proper  data  file  must  be  opened  and 
read  (lines  263  to  321) 

. The  proper  planning  factors  must  be  read 
or  skipped  (lines  785  to  793) 

• Option  to  use  the  simple  constraints  is  asked 

at  line  1042.  If  they  are  to  be  used, the  program 
sets  the  indicator  ISWTCH(4)  equal  to  -1  and 
then  transfers  control  to  XLSR3. 

• Lines  7365  to  7370  were  added  to  ensure  that  blanks 
will  be  written  on  SAVBCS  . 

• Line  4521  was  deleted  . 
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TABLE  8.1 

PROGRAM  LSRl  ] 


LISTING 


99C- 

101 

IRl 

141 

161 

181 

191 

201 

221 

241 

245 

247 

249 

251 

253 

255 

257 

259 

261 

263 

265 

267 

321 

341 

361 

381 

401 

421 

441 

461 

481 

501 

521 

541 

561 

581 

601 

621 

641 

661 

681 

701 

721 

741 

761 

781 

785 


- - Lsran  fou  mfo  11/30/70 

C OMMON  I YFAH  j I S WTCH (10) 

COMMON  MAHF(25,3)>NPLA(25*3)^ NFUEL(25,3)^NACD(25>3),ATP(25), 
A I7K  ( 2 5 ) > T OD  ( 2 5 ) , NAC  (25)*  NAD  ( 2 5 ) * V.'X  ( 2 5 * 3 ) * GA S ( 2 5 * 3 ) * AU ( 2 5*  3 ) * 
AFTI(25*3)*SFH(25*3)*FIH(25*3)*FTH(25*3)*FS0(25*3)*AM0(25,3)* 
&ASH(25*3)*AIH(25*3),AITR(25*3) 

COMMON  FUN(25,3)*FIHN(25*3)*FTRN(25*3) 

C OMMON  I C OMMA, I BLANK*  NO*  NYES  * NY  * NPH  * I ER  * LE VLSR  * I PH  * WPY* 
&AFD*KILL*I ID*FID*KILLS(25)*SI (25) *TS0UT(25) *S0( 25) 

COMMON  IBC*IL*IP*N*ITEM*IDEL(51 )*BMAX(15) 

FILENAME  INP 
IF(IBC)1*1*100 

1 IF( ISWTCH(5) .NE.O)GO  TO  3 
PRINT  750 

2 INPUT*ISUTCH(5) 

3 IF(ISUTCH(5).EQ.l )G0  TO  5 
IF( ISWTCH(5) .E0.2)G0  TO  6 
IER=6  i CALL  ERROR 

GO  TO  2 

5 INP="BASCA5" 

GO  TO  10 

6 INP="NFOBASCA" 

10  OPENFILE  INP 

REWIND  INP 

READ ( I NP  * 700 ) NO*  NYES  * I C OMMA* I BLANK 
READ (INP* 701 )IL*BMAX 
READ(INP*701 )IL*NPH 
IF(NPH)90*90*20 
20  IF(NPH-25)30*30*90 
30  DO  40  I=1*NPH 

READ ( I NP  * 70  3 ) ( NAME (1*J)*J=1*3)*( NPLA (I*J)*J=1*3)* 

A ( NFIIEL ( I * J)  * J=  1 * 3 ) * ( NACD ( I * J)  * J=  1 * 3 ) 

HEAD(INP*701 )IL*NAC(I )*NAD(I ) 
READ(INP*701)IL*ATP(I)*WK(I)*T0D(I ) 

READ ( I NP*  70 1 ) I L* ( WX ( I * J) , J= 1 * 3 ) 

READ( I NP*  70 1 ) I L* ( GAS ( I * J) * J=  1 * 3 ) 

READ(INP*701 )IL*(AU(I*J)* J=l*3) 

READ (INP* 701 )IL*(FU(I* J)* J=l*3) 

P.EAD(INP*701  )IL*(SFH(I*  J)*  J=l*3) 

READ(INP*701 )IL*(FIH(I*J)* J=l*3) 

READ(INP*701 )IL* ( FTP ( I * J) * J= 1 * 3 ) 

RF.AD(  INP*701  )IL*  (FSOd*  J)*  J=l*3) 

READ(INP*701  )IL*  (AMOd*  J)*  J=l*3) 

READ(INP*701 )IL* ( ASH ( I * J) * J=1  * 3 ) 

READ(INP*701  )IL*(AIHd*  J)*  J=l*3) 

READ(IMP*701 )IL*(AITR(I* J)* J=l*3) 

IF(ISWTCH(5).E0.1 )G0  TO  38 
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TABLE  8.1  (Cont) 


1P:1C 

7R9 

791 

793 

ROl 

PP 1 

R^!l 

R6P 
RRl 
901 
9S1 
9A1 
961 
981 
1001 
1021 
1 0i\  1 
10^12 
10-?i3 
10/15 
10/(7 
10/19 
1051 
1061 
1081 
1 101 
1 IPl 
1 1/11 
1161 
1181 
1201 
1221 
12/(1 
1261 
1281 
1301 
1321 
13/(1 
1361 
1381 
1/(01 
1/(21 
1/(25 
1/(26 
1432 
14/(1 


- - -HEAD  NFO  VALUES 

HEADf INP, 701 ) IL, (FUNC I, J)/ J=1 ,3) 

READ ( I NP , 70 1 ) I L, < F I HN ( I , J ) * J= 1 j 3 ) 

READ ( I MP, 70 1 ) I L, ( FTRNC I , J) , J= 1 , 3 ) 

38  IPH=I 

CALL  CHECKP 
40  CONTINUE 

IFCMPH)90,90>49 

49  IFCLEVLSR.EQ.l )G0  TO  80 

50  PRINT  705 
CALL  NOYES 
IF(NY)80, 80^60 

60  CALL  PHASES 
KILL=0 

80  CLOSEFILE  I NP 

IF(LEVLSn-2)R7,B7>83 
83  CALL  MODIFY 

87  IF(  IS’,;TCHC4)  .EO  . ( -1  ) )G0  TO  89 
PRINT  760 

CALL  NOYES 
IF(NY)89>89^88 

88  ISUTCH(4)=-1 
CHAIN'’XLSR3*" 

89  CHAIN"XLSR2*" 

90  NPH=0 
IE(T=3 

CALL  ERROT! 

LEVLSR=/( 

PRINT  706 
GO  TO  80 
100  PRINT  707 
CALL  NOYES 
IF(NY)1 10, 1 10, 105 
105  IBC=0 
GO  TO  3 

110  INP="SAVBCS" 

GO  TO  10 

700  FORMAT (5X,3A1,A4)  ' 

701  FORMAT (V> 

703  FORMAT ( 5X, 12A4) 

705  FORMATC"  PRINT  LIST  OF  TRAINING  PHASES  <Y,N)") 

706  FORMAT! 3 IH  LSR  COMPLEXITY  OPTION  SET  TO  4) 

707  F0RMAT(24H  RESTORE  BASE  CASE  <Y,Nn 
750  FORMAT!”  ENTER  TRAINING  FLOW  NO."/ 

/<"  1 FOR  PILOT,  2 FOR  NFO.  !X)") 

760  FORMAT!"  TRY  SIMPLE  CONSTRAINTS  !Y,N>") 

END 


J 
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TABLE  8 . 1 (Cont) 
a.  Subroutine  MODIFY 


1461  SUBROUTINE  MODIFY 

14R1  COMMON  IYEAR#ISWTCH( 10) 

1501  COMMON  NAME(25^ 3) jNPLA(25* 3)>NFUEL(25>3), NACD(25,3) ,ATP(25), 

1521  «WK(25),T0D(25)  jNAC(25)#NAD(25),\7X(2  5>3),GAS(25,3)*AUC25,3), 

1541  4FU(25>3)>SFH(25>3)>FIH(25,3)>FTR(25>3)>FS0(25,3),AM0(25,3), 

1561  &ASH(25,3),AIH(25,3)^AITRC25»3) 

1571  COMMON  FUN(25,3),FIHN(25,3)>FTRN(25#3) 

15R1  COMMON  ICOMMA,IBLANK>NO,NYES>NY>NPH,IER,LEVLSR»IPH,l'.iPY, 

1601  &AFD,KILL,IID,FID,KILLS(25)aSI C25)>TS0UT(25),S0(25) 

1621  COMMON  IBC>IL,IP,N,ITEM>IDEL(51),BMAX(15) 

1641  FILENAME  OUT 

1661  OUT=”SAVBCS" 

16R1  IS=0 

1701  IF(NPH)90,90, 10 

1721  10  PRINT  700 

1741  CALL  NOYES 

1761  IF(NY) 120^ 120>20 

17R1  20  PRINT  701 

IROl  CALL  NOYES 

1R21  IF(NY)40j40,30 

1R41  30  CALL  DELETE 

1R61  40  PRINT  702 

IRRl  CALL  NOYES 

1901  IF(NY)50>50#70 

1921  50  IF(NPH)60,60, 100 

1941  60  IER=3 

1961  NPH=0 

19R1  CALL  ERROR 

2001  70  IF(NPH-25)90,R0#R0 

2021  RO  IER=4 

2041  CALL  ERROR 

2061  GO  TO  20 

20R1  90  NPH=NPH+1 

2101  IPH=NPH 

2121  IS=1 

2141  CALL  NEUPHA 

2161  GO  TO  40 

21R1  100  IFCIS) 120, 120,  1 10 

2201  110  CALL  PHASES 

2221  120  PRINT  715 

2241  CALL  NOYES 

2261  IF(NY)500,500, 125 

22R1  125  PRINT  703 

2301  CALL  NOYES 
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TABLE  8.1  (Cont) 
a.  Subroutine  MODIFY  iCont) 


S3P1 

IF(NY) 180, 180,  130 

R3A1 

130 

CALL  EDITl 

P361 

IF(N)150,150,160 

S381 

1 50 

IER=2 

2401 

CALL  ERROR 

2421 

GO  TO  180 

244  1 

160 

DO  170  I=1,N,2 

2461 

IPH=1DELCI ) 

24  R1 

DO  170  J=l,22 

2501 

IL=J-1 

2521 

CALL  LIST 

2541 

170 

CONTINUE 

2561 

180 

PRINT  704 

2581 

CALL  NOYES 

2601 

IF(NY) 120, 120,  190 

2621 

190 

PRINT  705 

2641 

200 

INPUT  706,IPH,IC1,IL,IC2, 

2661 

IF( IPH)210, 120,220 

2681 

210 

IER=6 

270  1 

215 

CALL  ERROR 

2721 

GO  TO  200 

274  1 

220 

IF( IPH-NPH)230,230,210 

2761 

230 

IF(  ICl  -ICOMMA) 240, 250,2.40 

2781 

240 

IER  = 1 

2801 

GO  TO  215 

2821 

250 

IFtIL)210,210,260 

2841 

260 

IF( IL-5)270,290,330 

2861 

270 

CALL  UPD.ATE 

2881 

CALL  LIST 

2901 

280 

PRINT  707 

2921 

GO  TO  200 

2941 

290 

K=NACriPH) 

2961 

ILB  = 7 

2981 

IUD=17 

3001 

CALL  UPDATE 

3021 

CALL  LIST 

304  1 

N=NAC( IPH) 

3061 

300 

IF(K-N)310,280,280 

308  1 

310 

K=K+1 

3101 

DO  325  I=ILP,IUB 

3121 

IL=I 

3141 

DO  320  J=K,N 

3161 

IP  = J 

81 


31  R1 

3f»01 
3f?Pl 
3P'1 1 
3261 
32R1 
3301 
3321 
3341 
3361 
33P1 
3401 
3421 
3441 
3461 
3481 
3501 
3521 
354  1 
3561 
3581 
3601 
3621 
3641 
3661 
3681 
3701 
3721 
3741 
3761 
3781 
3801 
3821 
3841 
3861 
3881 
3901 
3921 
394 1 
3961 
3981 
4001 
4021 


TABLE  8 . 1 (Cont) 

a.  Subroutine  MODIFY  (Cont) 

320  CALL  UPDATE 
325  CALL  LIST 
GO  TO  280 

330  IF(IL-6)340,340,350 
340  K=NAD(IPH) 

ILB=18 
IUB=21 
CALL  UPDATE 
CALL  LIST 
N=NAD( IFH) 

GO  TO  300 
350  NsNACdPH) 

IF( I L- 17) 360, 360, 390 
360  IF(IP)210,210,380 
380  IF( IP-N)270,270,210 
390  NsNAD(IPK) 

IF( I L-21 >360,360,210 
500  DO  510  I=1,NPH 
IPH  = I 

510  CALL  CHF.CKP 

IFCNPH)90,90,530 
530  PRINT  708 
CALL  NOYES 
IF(NY)560,560,540 
540  IBC=1 

OPENFILE  OUT 
REWIND  OUT 

WR I TE ( OUT , 709  > NO, NYES , I C OKMA , I BLANK 
m I TE ( OUT ,710) BMAX 
WRITE<0UT,71 1 )NPH 
IC=1025 

DO  550  1=1, NPH 
IC=IC+5 

WniTE(0UT,712)IC,  <NAME<  I,  J),  J=1 ,3),  (NPLAd,  J),  J=l,3), 
ACNFUELd,  J),  J=1,3),(NACD(I,  J),  J=l,3) 

IC=IC+5 

VJRITE(0UT,713)IC,NACd  ),NADd  ) 

IC=IC+5 

URITE(0UT,714)IC,ATPd  ),V«d  ),TODd  ) 

IC=IC+5 

WR  I T E ( OUT  , 7 1 4 ) I C , ( '.7X  d , J ) , J = 1 , 3 ) 

IC=IC+5 

VJRITE(0UT,714)IC,(GASd,  J),  J=l,3) 


TABLE  8.1  (Cont) 
a.  Subroutine  MODIFY  (Cont) 


/lO/il  IC  = IC  + 5 

406 1 M?  I TEC  OUT, 71 4 ) IC, CAUC I , J) , J=1 , 3 ) 

40R1  IC=IC+5 

4101  WniTEC  0UT,714) IC, CFUCI, J), J=1 ,3) 

41S1  IC=IC+5 

4141  UHITEC0UT,714)IC, (SFHCI , J), J=1 ,3) 

4161  IC=IC+5 

410  1 Wr:  I T E C OU T , 7 1 4 ) I C , ( F I H C I , J ) , J = 1 , 3 ) 

4S01  IC=IC+5 

4 SOI  URITE(0ITT,714)IC,(FTP.CI,J),J=1,3) 

4041  IC=IC+5 

426  1 UP. I TEC  OUT,  71 4 ) I C,  C FSOC  I , J)  , J=1 , 3 ) 

4081  IC=IC+5 

430 1 WR I TEC  OUT, 7 1 4 ) I C , C AMOC I , J) , J= 1 , 3 ) 

4301  IC=IC+5 

4341  17I;ITEC0UT,714)  IC,  CASHC  I , J)  , J=1 , 3 ) 

4361  IC=IC+5 

438  1 WPITEC0ITT,714)IC,  CAIHCI  , J),  J=1 ,3) 

4401  IC=IC+5 

440  1 IJR I TE C OUT,  7 1 4 ) I C , C AI  TH C I , J)  , J=  1 , 3 ) 

4441  550  CONTINUE 

4461  CLOSFFILE  OUT 

4481  560  RETURN 

4501  700  F0PMATC//33H  ANY  DELETIONS  OR  ADDITIONS  CY,N)) 

4541  701  F0PMATC20H  ANY  DELETIONS  CY,N>) 

4561  700  FOP.MATCOOH  ADD  A NEW  PHASE  CY,N)) 

4581  703  F0RMATC21H  ANY  DATA  LISTS  CY,N)) 

4601  704  F0PMATC04H  A^T  MODIFICATIONS  CY,N)) 

4601  705  F0RMATC41H  ENTER  PHASE,  FIELD  AND  ELEMENT  C XX, XX, Y ) /44H  PHASE 

4641  & - no  IMPLIES  NO  FT)RTHER  MODIFICATIONS/"  NOTE  TWO  DIGIT 

4661  ^FIELDS  MUST  CONTAIN  TWO  DIGITS") 

4681  706  FORMATCOC I0,A1 ), I 1 ) 

4701  707  FORMAT C5H  NEXT) 

4701  708  F0PMATC30H  SAVE  MODIFIED  DATA  BASE  CY,N)) 

4741  709  FOR r^ATCSH  1000  ,3A1,A4) 

4761  710  F0RMATC5H1005  , 4E 1 3 .6/5H 1 0 1 0 , 4E 1 3 . 6/5H 1 0 1 5 ,4E13.6/ 

4781  ft 5H 1020  ,4E13.6) 

4801  711  F0PMATC5H1005  ,13) 

4821  712  FORMATC 14, IX, 10A4) 

4841  713  F0RMATCI4, 1X,2I3) 

4861  714  FORMiATC  14,  1X,3E13.6) 

4881  715  FORMATC"  ANY  LISTS  OR  MODIFICATIONS  CY,N)") 

490 1 END 
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TABLE  8.1  (Com) 

b.  Subroutine  CHECK? 

4921  SUBROUTINE  CHECK? 

4941  COMMON  I YEAR, I SUTCH( 1 0 ) 

4961  COMMON  I AD( 25, 3, 4 ) , DFIC 25, 3 ) , NAC ( 25 ) , NAD( 25 ) , DF2( 2 5, 3 , 1 2 ) 

4971  COMMON  DF3(25,3,3) 

4981  COMMON  ICOMMA, IBLANK,NO,NYES,NY,NPH, IER,LEVLSR, IPH, UPY, 

5001  AAFD,KILL, 1 1 D, F! D, KILLS ( 25 ) , S I ( 2 5 ) , TSOUK 2b ) , 3Q( 25 ) 

5021  COMMON  IBC , I L, I P, N, I TEM, I BEL( 5 1 ) , BMAX( 1 5 J 

5041  DO  20  1=1,3 

5061  IL=I-1 

5081  1TEM=I 

5101  FID=DF1 (IPH,I ) 

5121  CALL  DTEST 

5141  20  DFl (IPH,I )=FID 

5161  N=NAC(IPH) 

5181  IF(N)40,80,30 

5201  30  lF(N-3)50, 50,40 

5221  40  IL=0 

5241  CALL  LIST 

5261  IL=5 

5281  CALL  LIST 

5301  NAC(IPH)=0 

5321  IER=5 

5341  CALL  ERROR 

5361  GO  TO  80 

5381  50  DO  70  1=1,9 

5401  IL=8+I 

5421  ITEM=3+I 

5441  DO  70  J=1,N 

5461  FID=DF2(IPH, J, I) 

5481  CALL  DTEST 

5501  70  DF2(IPH,J,I )=FID 

5521  80  N=NAD(IPH) 

5541  IF(N) 100, 140,90 

5561  90  IF(N-3) 1 10, 1 10, 100 

5581  100  IL=0 

5601  CALL  LIST 

5621  IL=6 

5641  CALL  LIST 

5661  NAD(IPH)=0 

5681  IER=5 

570 1 CALL  ERROR 

5721  GO  TO  140 

5741  1 10  DO  130  1=10, 12 

5761  IL=9+I 

5781  ITEM=3+I 

5801  DO  130  J=1,N 

5821  FID=DF2(IPH, J,I) 

5841  CALL  DTEST 

5861  130  DF2(IPH, J, I )=FID 

5881  140  RETURN 

590 1 END 
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TABLE  8.1  (Cont) 
c.  Subroutine  NOYES 


■j 

ii 

n 

i; 

i i 

ii 


5921  SUBROUTINE  NOYES 

5941  COMMON  I YEAR, I SUI TCH( 1 0 ) 

5961  COMMON  NAMEC25, 3 ) , NPLA< 25, 3 ) , NFUEL( 25, 3 > , NACD( 25, 3 ) , ATP C 25) , 

5981  &WK(25),T0D(25),NAC(25),NAD(25), WX( 25,3 ),GASC 25,3), AU( 25,3), 

6001  *FU(25,3),SFH(25,3),FIH(25,3),FTR(25,3),FS0(25,3),AM0C25,3), 

6021  AASHC25,3),AIH(25,3),AITR(25,3) 

6031  COMMON  DF3(25,3,3) 

6041  COMMON  I COMMA, IBLANK, NO, NYES, NY, NPH, I ER, LEVLSR, IPH, UPY, 

6061  &AFD,KILL, 1 1 D,FI D, KILLS ( 25 ) , SI ( 25 ) , TSOUT( 25 ) , S0(2 5 ) 

COSl  COMMON  TRC.IL,IP,N,ITEM,IDELC51),BMAX(15) 

6101  10  1=1 

6121  INPUT  700, NY 

6141  IF(N0-NY)30,20,30 

6161  20  NY=-1*I 

6181  RETURN 

6201  30  I=-l 

6221  IF(NYES-NY)40,20,40 

6241  40  IER=6 

6261  CALL  ERROR 

6281  GO  TO  10 

6301  700  FORMAT(Al) 

632 1 END 
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1 


6341 

6361 

6381 

6401 

6421 

6441 

6461 

6481 

6501 

6521 

6541 

6561 

6581 

6601 

6621 

6641 

6661 

6681 

6701 

6721 

6741 

6761 

6781 

6801 

6821 

6841 

6861 

6881 

6901 

6921 

6941 

6961 

6981 

7001 

7021 

7041 

7061 

7081 

7101 

7121 

7141 

7161 

7181 


TABLE  8.1  (Cont) 
d.  Subroutine  DELETE 

SUBROUTINE  DELETE 
COMMON  lYEAR* ISWTCH< 10) 

COMMON  NAMEC25,3),IAD(25*3,3)*DF1(25>3)#IDF1 (25#2)> 
4DF2C25.3, 12)>DF3(25^3>3) 

COMMON  ICOMMA>IBLANK,NO,NYES>NYjNPH,IER,LEVLSR#IPHj\^PY> 
*AFD,KILL,IID,FID,KILLS(25),SIC25)*TS0UT(25),S0C25) 
COMMON  IBC,IL* IP*N,ITEM»IDEL(51 )»BMAX( 15) 

CALL  EDITl 
1F(N)10, 10,20 
10  IER=2 

CALL  ERROR 
GO  TO  150 
20  M=NPH 

DO  140  1=1, M 
IPH=M+1-I 
DO  30  J=1,N,2 
IF(1PH-IDEL( J))30,40,30 
30  CONTINUE 
GO  TO  140 

40  PRINT  700,IPH,(NAME(IPH,J), J=l,3) 

KILL=KILL+1 
KILLS(KILL)=IPH 
IF(IPH-NPH)50,100,100 
50  NPH1=NPH-1 

DO  90  K=IPH,NPH1 
KK=K+1 
DO  60  J=l,3 
NAMECK, J)=NAME(KK, J) 

DO  60  L=l,3 

60  IAD(K, J,L)=IAD(KK, J,L) 

DO  70  L=l,3 
70  DF1(K,L)=DF1CKK,L) 

DO  80  L=l,2 

80  IDFl (K,L)=IDF1 (KK,L) 

DO  90  L=l,12 
DO  90  J=l,3 

90  DF2CK, J,L)=DF2<KK, J,L) 

100  NPH=NPH-1 
140  CONTINUE 

CALL  PHASES 
150  RETURN 

700  F0RMAT(13H  DELETE  PHASE, 1 3, IX, 3A4) 

END 
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TABLE  8.1  (Com) 
e.  Subroutine  NEWPHA 


7201 

SUBROUTINE  NEVPHA 

7221 

COMMON  IYEAR#ISVTCH( 10) 

7241 

COMMON  NAME(25«3)«NPLA(25«3)«NFUEL(25«3>«NACD(25<3>»ATP(25)« 

7261 

AVK(25>«T0D(25>«NAC(25)«NAD(25)#  WC(25«3)«6AS(25«3)*AU(25«3>« 

7281 

«FU(25«3)«SFH(25«3)«FIHC25«3>«FTR(25«3)«FS0(25«3)<AM0(25<3)« 

7301 

ftASH(25«3>«AIH(25«3>»AITR(25«3) 

7311 

COMMON  DF3C25«3«3) 

7321 

COMMON  1C0MMA«  IBLANK«NO*NYES#NY«NPH«  IER«LEVLSR«  IPH«  WPY.. 

7341 

ftAFD«KILL«IID«FID«KILLS(25>«SI(25)»TS0UT(25>«S0(25) 

7361 

COMMON  1BC#IL«IP«N#ITEM«IDEL(51)«BMAX(15) 

7365 

ALPHA  NPLA#NFUEL«NACD 

7367 

DO  5 I-l«3 

7368 

NPLA(1PH#I)«”  ” 

7369 

NFUEL(1PH#1)«“  •• 

7370 

5 

NACD<1PH*I)»” 

7381 

DO  10  I-l«6 

7401 

IL-I 

7421 

CALL  UPDATE 

7441 

10 

CONTINUE 

7461 

N-NAC(IPH) 

7481 

IF(N)40«40«20 

7501 

20 

DO  30  1-7# 17 

7521 

IL-I 

7541 

DO  30  J-1#N 

7561 

IP-J 

7581 

CALL  UPDATE 

7601 

30 

CONTINUE 

7621 

40 

N-NAD(IPH) 

7641 

IF(N)70#70#50 

7661 

50 

DO  60  I-18#21 

7681 

IL-I 

7701 

DO  60  J-1#N 

7721 

IP-J 

7741 

CALL  UPDATE 

7761 

60 

CONTINUE 

7781 

70 

DO  80  I-l#22 

7801 

IL-I-1 

7821 

CALL  LIST 

7841 

80 

CONTINUE 

7861 

RETURN 

7881 

END 

7901 

7921 

7941 

7961 

7981 

8001 

8011 

8021 

8041 

8061 

8081 

8101 

8121 

8141 

8161 

8181 

8201 

8221 

8241 

8261 

8281 

8301 

8321 

8341 

8361 

8381 

8401 

8421 

8441 

8461 

8481 
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SUBROUTINE  EDITl 
COMMON  IYEAR,ISWTCH( 10) 

COMMON  NAME(25#3)^NPLA(25#3)#NFUEL(25>3)#NACDC25*3)#ATPC25)# 
&WK(25)#T0D(25)*NAC(25)#NAD(25)>WX(25#3)>GAS(25*3),AUC25,3)* 
«FU<25>3)>SFH(25*3)*FIH(25#3)#FTRC25#3),FS0C25>3),AM0C25>3), 
&ASH(25«3)«AIH<25*3)«AITR(25*3) 

COMMON  DF3C25>3^3) 

COMMON  ICOMMA, IBLANK,NO#NYES#NY*NPH, IER»LEVLSR. IPH, WPY, 

AAFD, KILL# 1 ID^FID, KILLS ( 25) #SI C25)#TS0UT(25)#S0<25) 

COMMON  IBC#IL#IP#N#ITEM#IDEL<51 )#BMAX(15) 

PRINT  700 
10  INPUT  701#IDEL 
IDEL<51)=0 
DO  80  I»l#25 
N=2^I-1 

IF<IDELCN))30#90#20 
20  IF(IDEL(N)-NPH)50#50#30 
30  IER=6 
40  CALL  ERROR 
GO  TO  10 

50  IF(I-1)80#80#60 
60  IF(IDEL(N-1)-IC0MMA)70#80#70 
70  IER»1 
GO  TO  40 
80  CONTINUE 
90  N=N-2 
RETURN 

700  FORMAT(”  ENTER  PHASE  NUMBERS  <XX#XX#  . .)••/••  TWO 
ADI  GITS  ARE  REQUIRED  FOR  EACH  PHASE”/) 

701  F0RMAT<25(I2#A1)#I2) 

END 
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S501  SUBROUTINE  LIST 

8521  COMMON  I YEAR, I SWTCHt 1 0) 

8541  COMMON  NAMEt 25, 3 > ,NPLA( 25, 3 ) ,NFUEL( 25, 3 ) #NACD( 25, 3 ) , ATP( 25) , 

8561  &WK(25),T0D(25),NAC(25),NAD(25),WX<25,3),GAS(25,3),AU(25,3), 

8581  *FUC25,3),SFH(25,3),FIH(25,3),FTR(25,3),FS0(25,3),AM0(25,3), 

8601  AASH<25,3),AIH<25,3),AITRC25,3) 

8611  COMMON  FUN(25,3),FIHN(25,3),FTRNC25,3) 

8621  COMMON  ICOMMA, IBLANK,NO,NYES,NY,NPH, IER,LEVLSR, IPH, Vff>Y, 

8641  &AFD,KILL,IID,FID,KILLS(25),SI (25) ,TS0UT(25),S0(25) 

8661  COMMON  IBC, IL, IP,N, ITEM, IDELC 51 ) ,BMAX< 1 5) 

8681  NACC=NAC(IPH) 

8701  NADD=NAD(IPH) 

8721  IF(IL)100,100,110 

8741  100  PRINT  700, IPH 

8761  GO  TO  200 

8781  110  IF(IL-7)120,140,130 

8801  120  GO  TO  ( 1 ,2,3,4, 5, 6) , IL 

8821  1 PRINT  701,(NAME(IPH, J), J=l,3) 

8841  GO  TO  200 

8861  2 PRINT  702,ATP(IPH) 

8881  GO  TO  200 

8901  3 PRINT  703,\-n«IPH) 

8921  GO  TO  200 

8941  4 PRINT  704,  TOD(IPH) 

8961  GO  TO  200 

8981  5 PRINT  705,NACC 

9001  GO  TO  200 

9021  6 PRINT  706,NADD 

9041  GO  TO  200 

9061  130  IF(IL-17)140,140,160 

9081  140  K=IL-6 

9101  IF(NACC)200,200, 150 

9121  150  GO  TO  <7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17), K 

9141  7 PRINT  707,(NPLA(IPH, J), J=1,NACC) 

9161  GO  TO  200 

9181  8 PRINT  708,(NFUEL(IPH, J), J=l,NACC) 

9201  GO  TO  200 

9221  9 PRINT  709, (VK< IPH, J), J=1,NACC) 

9241  GO  TO  200 

9261  10  PRINT  710,(GAS(IPH,J), J=1,NACC) 

9281  GO  TO  200  s 

9301  11  PRINT  71 1,(AU(IPH, J), J=1,NACC) 

9321  GO  TO  200 

9341  12  PRINT  7 1 2, (FUC IPH, J) , J=1 ,NACC ) 

9361  GO  TO  200 
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9381  13  PRINT  713*  tSFHUPH,  J),  J«1  ,NACC) 

9401  GO  TO  200 

9421  14  PRINT  714> <FIH( IPH^ J), J«1 >NACC) 

9441  GO  TO  200 

9461  15  PRINT  715*(FTR(IPH# J), J=1>NACC) 

9481  GO  TO  200 

9501  16  PRINT  716#(FS0(IPH# J)#Jol,NACC) 

9521  GO  TO  200 

9541  17  PRINT  71 7# (AMO( IPH# J) , J=1 #NACC ) 

9561  GO  TO  200 

9581  160  K-lL-17 

9601  IF(NADD)200<200«170 

9621  170  GO  TO  C18^ 19^20,21 ),K 

9641  18  PRINT  71 8# <NACD( IPH, J) , J=1 ,NADD) 

9661  GO  TO  200 

9681  19  PRINT  719# <ASH( IPH* J) # J*1 ,NADD) 

9701  GO  TO  200 

9721  20  PRINT  720# (AIH( IPH# J) # J»1 #NADD) 

9741  GO  TO  200 

9761  21  PRINT  72 1 # (AITR< IPH# J) # J=1 #NADD) 

9781  200  RETURN 

9801  700  FORMAT </29H  DATA  LIST  FOR  TRAINING  PHASE# 13) 

9821  701  FORMAT (15H  01  PHASE  NAME  #3A4) 

9841  702  F0RMATU9H  02  ATTRITION  P0INT#F7.4) 

9861  703  F0RMATC18H  03  PHASE  DURATI 0N#F6 .2# 6H  WEEKS) 

9881  704  F0RMAT(16H  04  TOUR  OF  DUTY#F6.2#7H  MONTHS) 

9901  705  F0RMATC21H  05  AIRCRAFT  TYPES  #12) 

9921  706  F0RMATC21H  06  INSTRUCTION  TYPES# 12) 

9941  707  F0RMAT(24H  07  AIRCRAFT  TYPES  # 3< 1X#A4#2X) ) 

9961  708  F0RMAT(13H  08  FUEL  TYPE# 1 1X#3( 1X#A4#2X)  ) 

9981  709  F0RMATC23H  09  FLYABLE  WEATHER  #3F7.3) 

10001  710  F0RMAT(22H  10  FUEL  CONSUMPTION  #3F7.2) 

10021  711  F0RMAT(22H  11  A/C  UTILIZATION  #3F7.2) 

10041  712  F0RMAT(22H  12  INSTRUCTOR  UTIL.  #3F7.2) 

10061  713  F0RMAT(17H  13  FLIGHT  HOURS  #5X#3F7.2) 

10081  714  F0RMAT<22H  14  FLIGHT  INST.  H0URS#3F7.2) 

10101  715  F0RMAT<22H  15  INST.  TR.  PERIOD  #3F7.2) 

10121  716  F0RMAT(22H  16  LSO  RATIO  #3F7.2) 

10141  717  F0RMAT(22H  17  MAINTENANCE  MEN  #3F7.2) 

10161  718  F0RMAT(23H  18  ACADEMIC  INSTRUCT.  #3(2X#A4# IX) ) 

10181  719  F0RMAT(17H  19  STUDENT  H0URS#5X#3F7.2) 

10201  720  F0RMAT(22H  20  INSTRUCTOR  HOURS  #3F7.2) 

10221  721  F0RMATC22H  21  INST.  TR.  PERIOD  #3F7.2) 

10241  END 
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10S61  SUBROUTINE  UPDATE 

10281  COMMON  SWITCHCl 1 ) 

10301  COMMON  NAME(25,3)*IAD(25#3*3)*DF1(25>3)#IDF1(25,2), 

10321  &DF2(25^ 3> 12),DF3(25#3,3) 

103A1  COMMON  ICOMMA,  IBLANK,NO,NYES* NYj NPH,  lER^LEULSR*  IPH,  V/PY^ 

10361  AAFD,KILL,IID,FID>KILLSC25)#SI (25),TS0UT(25),S0(25) 

10381  COMMON  IBC, IL, IP, N, ITEM, IDELC 51) * BMAXC 1 5) 

lOAOl  IER=0 

10A21  IF(IL-1 )20,20, 130 

lOAAl  20  PRINT  700, IPH 

10A61  INPUT  701,(NAME(IPH, J), J=l,3) 

10A81  GO  TO  500 

10501  130  IFCIL-A)1A0,1A0, 170 

10521  MO  K=IL-1 

105A1  PRINT  70A,IL 

10561  INPUT, FID 

10581  ITEM=K 

10601  DFl <IPH,K)=FID 

10621  CALL  DTEST 

106A1  DFl (IPH,K)=FID 

10661  GO  TO  500 

10681  170  IFCIL-6) 180, 180,200 

10701  180  K=IL-A 

10721  PRINT  706, IL 

107A1  INPUT, I ID 

10761  IDF1(IPH,K)=IID 

10781  ITEM=16 

10801  CALL  DTEST 

10821  IDF1(IPH,K)=IID 

108A1  GO  TO  500 

10861  200  IF(IL-17)210,210,310 

10881  210  N=IDF1(IPH,1) 

10901  IF(IL-8)220,220,260 

10921  220  K=IL-6 

109A1  230  IF(IP-N)250,250,500 

10961  250  PRINT  707,IL,IP 

10981  INPUT  701,IAD(IPH,IP,K) 

11001  GO  TO  500 

11021  260  K=IL-8 

llOAl  ITEM=IL-5 

11061  270  IF(IP-N)280,280,500 

11081  280  PRINT  709,IL,IP 

11101  INPUT, FID 


91 


11121 

11141 

11161 

11181 

11201 

11221 

11241 

11261 

11281 

11301 

11321 

11341 

11361 

11381 

11401 

11421 

11441 

11461 

11481 

11501 

11521 
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DF2(IPH#IP,K)=FID 
CALL  DTEST 
DF2(IPH,IP>K)=FID 
GO  TO  500 

310  IFCIL-21 )320j320,500 

320  N=IDF1 (IPH>2) 

IF(IL-18)340#330,340 

330  K=3 

GO  TO  230 

340  K=IL-9 

ITEM=IL-6 
GO  TO  270 

500  RETURN 

700  F0RMAT(20H  ENTER  NAME  OF  PHASE#I3j15H  ( AAAAAAAAAAAA ) ) 

701  F0RMAT(3A4) 

702  F0RMAT(41H  ENTER  FOLLOV/ING  PHASE  NUMBERS  (XX,XX*XX)) 

704  FORMAT (17H  ENTER  DATA  FI ELD, 1 3# 1 OH  (XXXX.XX)) 

706  FORMAT Cl 7H  ENTER  DATA  FIELD, I 3, 4H  (X)) 

707  F0RMATC17H  ENTER  DATA  FIELD, 13, 1H-, 1 1 , 7H  (AAAA)) 

709  F0RMATC17H  ENTER  DATA  FI ELD, 1 3, 1H-, 1 1 , 1 IH  (XXX.XXXX)) 
END 


TABLE  8.1  (Cont) 
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11541 

SUBROUTINE  DTEST 

11561 

C OMMON  I YEAR,  I S VJTCH  (10) 

11581 

COMMON  IAD(25,3,4),DF1 (25,3),IDF1(25,2),DF2(25,3, 12) 

11591 

COMMON  DF3<25,3,3) 

11601 

COMMON  I COMMA,  I BLANK, NO, NYES , NY,  NPH,  I ER, LEVLSR,  I PH,  \1PY 

11621 

&AFD,KILL> IID,FID,KILLS(25)*SIC25)*TS0UT(25)#S0C25) 

11641 

COMMON  IBC,IL,IP,N,ITEM,IDEL(51 ),BMAX(15) 

11661 

IFC ITEM- 16)50,90, 500 

11681 

50 

IF(FID)70,500,60 

11701 

60 

IF(FID-BMAX(ITEM))500,500,70 

11721 

70 

K=IL 

11741 

IL=0 

11761 

CALL  LIST 

11781 

IL=K 

11801 

CALL  LIST 

11821 

PRINT  700,FID,BMAX(ITEM) 

11841 

CALL  NOYES 

11861 

IF(NY)80,80,500 

11881 

80 

PRINT  701 

11901 

INPUT, FID 

11921 

GO  TO  50 

11941 

90 

IFCIID)110,500,100 

11961 

100 

IF(IID-3)500,500,110 

11981 

110 

K=IL 

12001 

IL=0 

12021 

CALL  LIST 

12041 

IL=K 

12061 

CALL  LIST 

12081 

PRINT  703 

12101 

INPUT, I ID 

12121 

GO  TO  90 

12141 

500 

RETURN 

12161 

700 

FORMATCllH  DATA  POI NT, F9 .4, 23H  EXCEEDS  RANGE  OF  0.0 

12181 

&H  ACCEPT  (Y^N)) 

12201 

701 

FORMAT ( 3 IH  ENTER  CORRECT  VALUE  (XXX.XXXX)) 

12221 

703 

F0RMATC40H  INVALID  VALUE  - ENTER  CORRECT  VALUE  (X)) 

12241 

END 
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12261  SUBROUTINE  PHASES 

12281  COMMON  IYEAR»  ISVTTCHt  10) 

12301  COMMON  NAME(25*3)^NPLA(25*3)*NFUEL(25#3)#NACD(25* 3)#ATP<25), 

12321  «WK(25)#T0DC25),NAC(25)#NAD(25)* WX(25#3)*GAS(25,3)>AU(25>3)# 

12341  «FU(25#3)#SFH(25>3>#FIH(25#3)#FTR(25#3)#FS0(25#3)#AM0(25,3)# 

12361  &ASH(25#3)«AIH(25#3)«AITR(25>3) 

12371  COMMON  DF3(25*3»3) 

12381  COMMON  ICOMMA*  IBLANK#NO,NYES>NY>NPH,  I ER* LEVLSR*  IPH>  \7PY> 

12401  AAFD^KILL* IID,FIDjKILLS(25)#S1<25)*TS0UT(25),S0(25) 

12421  COMMON  IBC# IL, IP,N, ITEM, 1DEL( 51 ) #BMAX( 1 5) 

12441  PRINT  700 

12461  IF<NPH)40,40, 10 

12481  10  DO  20  1=1, NPH 

12501  20  PRINT  70 1 , I , (NAME( I , J) , J=1 ,3 ) 

12521  30  PRINT  703 

12541  RETURN 

12561  40  PRINT  702 

12581  GO  TO  30 

12601  700  F0RMAT(//16H  TRAINING  PHASES/15H  NO.  PHASE  NAME) 

12621  701  F0RMAT(I3,2X,3A4) 

12641  702  FORMATdOH  NO  PHASES/) 

12661  703  FORMATC//”  ") 

12681  END 


TABLE  8 . 1 (Cont) 
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lP7ni  SnBP.OnTINE  EP".Oi'> 

1P7P1  COMMON  lYEAn,  IS'.JTCIK  10) 

1 P7/H  C OMI  ’ON  NAME  < P 5,  3 ) , NPLA  ( P 5 > 3 ) , NFUEL  C P 5 > 3 ) , NAC  D(P5,3)^ATF(Pro, 

l'^7Al  ^.”K(P5)«T0D(P3)  ,NAC(P5)  ,NAD(P5)  , ’•A:  ( P5^  3 ) > GAS  ( P5,  3 ) ^ AU(  P 5,  3)  , 

1P7S1  AEn(25,3),SFH(25^3)^FIHC25>3),FTn(P5,3),FS0(P5,3),Ai:0(P5,3)> 

lP?!Oi  AASH(P5,3),AIH(25>3),AITn(25,3) 

1P«11  COMMON  DF3<25^3,3) 

1232 1 COMMON  I COMI'IA,  I PLANK,  NO,  NYES,  NY,  NPH,  I EE,  LE^71.S:-.,  I FH,  V.''FY, 

IPR/ll  fi  AFD,KILL,  1 1 D, FI  D,KI  LLS  ( 25 ) , S I ( 25  ) , TSOUT(  25  ) , SOC  P5 ) 

IPPAl  COMMON  IRC,IL,I?,N,ITEM,IDEL(51),BMAX(15) 

1P3P1  GO  TO  (2,3,A,5,6,7),IEP 

12901  P FEINT  70P 

12921  GO  TO  100 

1P9A1  3 PHINT  703 

12951  GO  TO  ion 

129 PI  A PE I NT  70 A 

13001  GO  TO  100 

13021  5 PRINT  705 

130/11  GO  TO  ion 

1306 1 6 PRINT  706 

13031  GO  TO  100 

13101  7 PRINT  707 

131P1  100  RETURN 

I31A1  702  FOPt-IATCPlK  COMMA  MISSING  REPEAT) 

13161  703  F0!N-IAT(30H  PREVIOUS  OPTION  NOT  PROCESSED) 

131P1  70A  FOR.MATtPPH  NO  PHASES  IN  PIPELINE) 

13201  705  FORMATfPPH  25  PHASES  IN  PIPELINE) 

13PP1  706  FORMAT (37H  MAX.  FOR  FIELD  IS  3 - FIELD  SET  TC  ;)) 

13p/il  707  FORMAT (P2H  INVALID  DATA  - i^EPEAT) 

13261  END 
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IX.  PROGRAM  LSR2 


9.1  Program  LSR2  is  listed  in  Table  9.1.  Additional  changes  in  this  sec- 
tion were  made  because  of  the  new  print  options.  Other  changes  were  made 
to  accommodate  the  NFO  training  system  and  the  Dynamic  IFRS  entry. 

9.2  The  major  changes  are: 

• NFO  planning  factors  were  added  to  common 
(225  words).  This  is  seen  in  line  102  where 
the  dimension  on  SPACE  was  changed  from 
25  X 50  to  25  X 59. 

• To  accommodate  six  following  training  phases 
from  a given  phase,  all  loops  and  state- 
ments that  include  the  variables  I PHASE  and 
IDATA  had  to  be  modified. 

• A new  subroutine  NFODYN  was  added  (lines 
13122  to  13302).  Its  main  purpose  is  to  open 
the  proper  (NFO  or  pilot)  pipeline  data  file. 

It  also  sets  the  variable  IDYN  to  indicate  if 
the  program  is  to  transfer  control  to  DYNAM* 
or  XLSR3*. 

• If  this  is  a Dynamic  IFRS  run,  the  program 
merely  reads  the  pipeline  data  file  and  checks 
it  for  validity.  If  it  is  a level  of  complexity 

3 Dynamic  run,  the  user  can  modify  the  pipe- 
lines and  this  modification  will  be  saved  in 
PIPES  for  later  access  by  the  Dynamic  IFRS 
model  in  PTRSl. 


PRBCgDIlO  PAQK  BUMUWT  riliVB) 


• The  user  can  now  skip  the  printout  of  student 

information  for  each  pipeline.  (The  instruction  is 
printed  in  format  800.)  This  is  handled  in  sub- 
routine PIPENT  with  the  new  argument  IDLET  i 

(line  number  662) . ’ 

• Program  LSR2  now  calculates  the  student  load  i 

and  prints  it  (see  lines  1343,  1344,  1362,  ] 

1562,  and  15  63).  This  was  previously  done  in  i 

LSR3.  j 

• Line  723  now  sets  the  student  output  to  zero  if  | 

it  is  less  than  0.8  for  a given  phase.  This  now  j 

lets  the  user  enter  0.1  as  a required  PTR  and  no  ] 

requirements  will  be  calculated  on  this  small  ] 

student  output.  I 

• Lines  3462,  3582,  3583,  and  5882  were  changed  I 

to  indicate  that  six  following  training  phases  are 

permitted . ) 

i 

• Changes  to  subroutine  PIPENT  (starts  at  line  num-  | 

ber  7202)  allow  options  to  control  output.  1 

• Line  11102  was  deleted  since  it  was  not  used.  i 


TABLE  9.1 

PROGRAM  I5R2  LISTING 


99C-  - - L5i;2M  R/19/7n  - - DLSRR  lR/03/7n  - - 

lOP  COMMO\'  IYEAP,ISWTCH(  10),^?AME(25*3)>SPACF(P5>59) 

1P9  COMMON  I COMMA,  I BLANK,  NO,  NYES,  MY,  NPH,  I ER,  LEVLSP.,  I PH,  V;PY, 

1/lP  AAFD,KILL,  1 1 D, FI  D, KI LLS  ( P5  ) , S I ( P5  ) , TSOUT ( P5  ) , S 0(  P5  ) 

If^P  COMMON  NPHP,  IPHASE(P5,  7)  ,ATR(25),PNAME<3)  , IPRT,NPSVJ,LSOSV; 

lAp  A, inATA( 1 n , ic 

POP  FILENAME  PIPE 

P05  CALL  NFODYNKPIPE,  ISWTCH,  IDYN) 

P07  ISWTCHCA)=KILL 

PPP  DO  3 I=P,10,P 

PAP  3 IDATAd  )=ICOMMA 
P6P  LS0SH=0 

30P  no  in  1=1, NPH 

3PP  TsonT(n=o.o 

3AP  10  si(i)=n.n 

3AA  I SAVE =0 

3A5  IFCLEVLSn .NE. 1 )G0  TO  IR 

3A6  IPRT=-1 

3A7  GO  TO  AO 

3fiP  IR  PRINT  700 

3RP  CALL  NOYES 

AOP  IPFT=NY 

AA?  IF(LEVLSR-3)A0,P0,P0 

A6P  PO  IF( IDYN.EQ .0)G0  TO  P5 

A6A  IF(  (IDYN.EC.l ) .AND.(LEVLSR.E0.3)  )G0  TO  30 

Afifi  GO  TO  AO 

/i^P  PS  PRINT  70R 

ARP  CALL  NOYES 
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bOf?  IF(^JY)40>/l0>30 

5P''  30  ISAVE=1 

54f>  OPENFILE  "PIPES" 

56P  REyiND  "PIPES" 

5R2  LI=inOO 

592  40  NPSV;=1 

602  IF( IDYN.E0 . I )G0  TO  100 

603  IF(LEVLSR.NE.l)PniNT  ROO 

604  LEVT=LEVLSR 

622  100  CALL  PIPINP(PIPE) 

642  IFCNPSW)200> 100, 1 10 

645  110  IFCIDYN.EC. 1 )G0  TO  12R 

662  CALL  PIPENTCIDLET) 

663  IF( IDLET.EQ .2)G0  TO  100 

664  IFCIDLET.EO.l )LEVLSR=1 

6R2  IFILEVLSR.NE.l 5PRIMT  701,PNAME 

702  DO  120  I=1,NPHP 

722  K=1PHASECI,7) 

723  IFCSOCK) .LT.0.R)S0(K)=0.0 

742  SIN=SO(K>/( 1 .O-ATR(K) ) 

762  ATL=SIN-SO(K) 

7R2  TSOUT(K)=TSOUTCK)+SO(K) 

R02  SI (K)=SI (K)+SIN 

803  IFCLEVLSR.EO.l )G0  TO  120 

804  PRINT  702,(NAME(K,J),J=1,3),SIN,S0(K),ATL 

822  120  CONTINUE 

823  LEVLSR=LEVT 

842  IFCLEVLSR.NE.l )PRINT  707 

862  128  IF(ISAVE)100,100, 130 

882  130  WR1TE("P1PES",709)LI,NPHP,PNAME 

902  LI=LI+5 

922  DO  140  I=1,NPHP 

942  K=IPHASE(I,7) 

962  WRITE("PIPES",710)LI, (IPHASEI I, J), J=1 ,7),ATR(K) 

982  KILL=0 

1002  140  LI=LI+5 

1022  GO  TO  100 
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in/in 

in6n 

inpo 

HOP 

1 ipp 
1 i/ip 
1 

1 IRP 
IPOP 
ippp 
IP.A2 
1P6P 
IPPP 
130P 
131P 
13PP 
13/lP 
13/(3 
13/1/1 
13R? 
13RP 
l/(OP 
1/|PP 
14/lP 
1/(6P 
1/(RP 
150P 
15PP 
15/lP 

1562 

1563 
1602 
16P2 
16/(2 
1662 
1663 
166/( 

1665 

1666 
166  7 
16R2 


200  IFCLEVLSi:-2)300,300,210 
210  PRINT  703 
CALL  NOYES 
IF(MY)300^ 300,220 
220  PRINT  70/( 

INPUT  705,PNAMF 
Npvp=n 
CALL  NPIPE 
IFCNPHP)210,210, 1 10 
300  CLOSEFILE  PIPE 

IF(ISAUF)320,320,310 
310  UR  I TE  ( "P I PF.S " , 709  ) L I , NP S W,  PNAME 
CLOSEFILE  "PIPES" 

320  IFCIDYN.EO.l )CHA I N"DYNAM*" 

PRINT  706 
DO  AOO  I = 1,I’PH 
ATL=SI ( I )-TSOMT( I ) 

A=SPACE(I,10) 

SL=(5I ( I )*A+TS0UT( I )*( 1 .-A) )+SPACE( I ,11) /UPY 
/lOO  PRINT  702,(NAME(I,J),  J=1,3),SI(I),TS0UT(I),ATL,SL 
CHAIN"XLSH3=(--" 

700  F01X'iAT(26H  PR'INT  ALL  PIPELINES  (Y,N)) 

701  FORNATC //5X, "STUDENT  TYPE;  ", 3AA // 1 RX, 22H .STUDENT  ST 

^.ATISTICS./AOH  TRAINING  PHASE  INPUT  OUTPUT  ATTRITES/) 

702  F0nMAT(lX,3A/J,FlO.0,2FR.0,F10.1  ) 

703  FORMAT (25H  ADD  A NEW  PIPELINE  (Y,N)) 

70/(  F0RMAT(3RH  ENTER  NAME  OF  PIPELINE  ( AAAAAAAAAAAA ) ) 

705  FORMAT ( 3 A/() 

706  FORMAT! //5X, "TOTAL  FOR  ALL  STUDENT  TYPES" // 1 8X, 22H . STU 
1DENT  STATISTICS.,/lX,"STUDENT"/ 

A"  TRAINING  PHASE  INPUT  OUTPUT  ATTRITES  LOAD") 

707  FORMAT!//) 

70B  FORMAT!"  SAVE  MODIFIED  PIPELINES  !Y,N)") 

709  F0PMAT!2I/(,3A/|) 

710  FORMAT!  I/(,  IX, 713, FR./l) 

800  FORMAT!"  FOf-  THE  TRAINING  PIPELINES"/ 

A"  AFTER  ENTERING  THE  DATA  - ENTER"/ 

A"  0,0  FOR  PIPELINE  COMPUTATION  AND  PRINT  OUT"/ 

A"  0,1  FOR  PIPELINE  COMPUTATION  - NO  PRINT  OUT"/ 

A"  0,2  FOR  NO  COMPUTATION  - SKIP  TO  NEXT  PIPELINE") 

END 


101 


TABLE  9 . 1 (Cont) 
a.  Subroutine  MPIPE 


1702 

SUBROUTINE  MPIPE 

1722 

COMMON  SWITCHt 1 1 ) ,NAME( 25# 3 ) ^ SPACEt 25, 59 ) 

1742 

COMMON  I COMMA# I BLANK#  NO#  NYES#  NY#  NPH# I ER# LEVLSR# I PH#  WY, 

1762 

&AFD,KILL* IID,FID#KILLS(25)#SI(25)#TS0UT(25)*S0C25) 

1782 

COMMON  NPHP#IPHASE(25#7)#ATR(25)#PNAME(3)#IPRT#NPSW#LS0SW 

1802 

£ 

,#IDATA(1 1 >#IC 

1822 

10 

IF(NPHP) 100# 100#20 

1842 

20 

PRINT  700#PNAME 

1862 

CALL  NOYES 

1882 

IFCNY)500#500#30 

1902 

30 

PRINT  701 

1922 

CALL  NOYES 

1942 

IF(NY)50#50#40 

1962 

40 

PRINT  711 

1982 

IID=1 

2002 

45 

INPUT#  I PH 

2022 

IF(IPH)50#50#46 

2042 

46 

CALL  DP I PE 

2062 

PRINT  710 

2082 

GO  TO  45 

2102 

50 

PRINT  702 

2122 

CALL  NOYES 

2142 

IF(NY)60#60#70 

2162 

60 

IF(NPHP)90#90#200 

2182 

70 

IF(NPHP-NPH)! 10#80#80 

2202 

80 

IER  = 5 

2222 

CALL  ERROR 

2242 

GO  TO  30 

2262 

90 

IER-4 

2282 

CALL  ERROR 

2302 

100 

NPHP=0 

2322 

1 10 

N=NPHP 

2342 

NPHP=NPHP+1 

2362 

PRINT  703 

2382 

120 

INPUT# I PH 

2402 

IFtIPH)130# 130# 140 

2422 

130 

IER=7 

2442 

CALL  ERROR 

2462 

GO  TO  120 

1 

I 
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a . Subroutine  MPIPE  (Cont) 


SA82 

140 

IF(IPH-NPH>150* 150> 130 

2502 

150 

IF(N)190>190,170 

2522 

160 

IER  = 1 

2542 

CALL  ERROR 

2562 

GO  TO  50 

2582 

170 

DO  180  I=1#N 

2602 

IFCIPHASE(I,7)-IPH) 180> 160, 180 

2622 

180 

CONTINUE 

2642 

190 

PRINT  704 

2662 

INPUT, (IPHASECNPHP, J), J=1 ,6),ATR(IPH) 

2682 

IPHASE(NPHP, 7)=IPH 

2702 

GO  TO  50 

2722 

200 

PRINT  705 

2742 

CALL  NOYES 

P.762 

IF(NY)220,220,210 

2782 

210 

CALL  PIPRT 

2802 

220 

PRINT  706 

2822 

CALL  NOYES 

2842 

IF(NY) 10, 10,230 

2862 

230 

PRINT  707 

2882 

240 

INPUT,IPH,ISW 

2902 

IF(IPH)270, 10,245 

2922 

245 

N=0 

2942 

DO  260  I=1,MPHP 

2962 

I F( I PHASE (I, 7) -I PH >260,250, 260 

2982 

250 

N=I 

3002 

GO  TO  280 

3022 

260 

CONTINUE 

3042 

270 

IER=2 

3062 

CALL  ERROR 

3082 

CALL  PIPRT 

3102 

GO  TO  240 

3122 

280 

IF(ISU)270,290,310 

3142 

290 

PRINT  708 

3162 

INPUT,(IPHASE(N, J>, J=l,6> 

3182 

300 

PRINT  710 

3202 

GO  TO  240 

3222 

310 

PRINT  709 

3242 

INPUT, ATRCIPH) 

3262 

GO  TO  300 

3282 

500 

CALL  PIPER 

3302 

IF(NPHP>90,90,510 

3322 

510 

RETURN 

I 


I 


1 


■ 
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a.  Subroutine  MPIPE  (Cont) 


3342  700  FORMAK//”  PIPELINE  ANY  DELETIONS,  ADDITIONS,  LI 

3362  &STS  OR  MODIFICATIONS  CY,N>") 

3382  701  F0RMATC24H  DELETE  ANY  PHASES  (Y,N>) 

3402  702  FORMATC*  ADD  A NEW  PHASE  (Y,N)") 

3422  703  FORMAT ( 3 IH  ENTER  NUMBER  OF  NEW  PHASE  (XX)) 

3442  704  F0RMAT(42H  ENTER  FOLLOWING  PHASES  AND  ATTRITION  RATE/ 

3462  (XX, XX, XX, XX, XX, XX,  .XXX)  ALL  DATA  FIELDS  MUST  BE 

3463  & ENTERED*'//) 

3482  705  F0RMAT(25H  LIST  PIPELINE  DATA  (Y,N)) 

3502  706  FORMATC*  MODIFY  A PIPLINE(Y,N)") 

3522  707  FORMAT ("  ENTER  PHASE  NUMBER  AND  SWITCH  (XX,X)"/"  SWITCH  = 

3542  * 0 - MODIFY  FOLLOWING  PHASES"/"  = 1 - MODIFY  ATTRIT 

3562  *ION  RATE"/"  PHASE  =0,0  IMPLIES  NO  FURTHER  MODIFICATIONS") 

3582  708  FORMATC*  ENTER  FOLLOWING  PHASES  (6  VALUES)"/ 

3583  A"  (XX,XX,XX, . . .)") 

3602  709  F0RMAT(28H  ENTER  ATTRITION  RATE  (.XXX)) 

3622  710  FORMAT (5H  NEXT) 

3642  711  FORMATC*  ENTER  PHASE  NUMBERS  (XX)"/"  ENTER  0,  FOR  NO  FU 

3662  &RTHER  DELETIONS") 

3682  END 
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b.  Subroutine  PIPRT 


370R 

3732 

3742 

3762 

3782 

3802 

3822 

3842 

3862 

3882 

3902 

3922 

3942 

3962 

3982 

4002 

4022 

4042 

/'062 

4082 

4102 

4122 

4142 

4162 

4182 

4202 

4222 

4242 

4262 

4282 

4302 

4322 

4342 


SUBHOUTIME  PIPRT 

COMMON  SUITCH( 1 1 ) , NAME( 25/ 3 ) > SPACE( 25^ 59 ) 

COMMON  I COMMA,  I BLANK,  NO,  NYES,  NY,  NPH,  I ER,  LEVLSK,  I PH,  vJPY, 
«AFD,KILL, I ID,FID,KILLS(25),SI (25),TS0UT(25),S0(25) 

C OMMON  NPHP  , I PHASE  ( 25 , 7 ) , ATR  (25),  PNAME  ( 3 ) , I PP.T,  NPS  W,  LS  OSVJ 
A,IDATA(11),IC 
PRINT  700, PNAME 
IF(NPHP)80,80,  10 
10  DO  60  K=1,NPHP 
1=IPHASE(K,7) 

IC  = 1 

DO  30  J=l,6 
IF(IPHASE(K, J))30,30,20 
20  IDATA(IC)=IPHASE(K, J) 

IC=IC+2 
30  CONTINUE 
IC=IC-2 

IF(IC)50,50,40 

40  PRINT  701,I,(NAME(I, J), J=1,3),ATR(I ) , ( I DATA ( J) , J= 1 , I C ) 

GO  TO  60 

50  PRINT  701,I,CMAME(I, J), J=1,3),ATR(I) 

60  CONTINUE 
70  PRINT  703 
RETURN 
80  PRINT  702 
GO  TO  70 

700  F0RMAT(//27H  TRAINING  PIPELINE  FOR  ,3A4//6H  PHASE, 

A13X,20HATTRITI0N  FOLLOUI NG/3 7H  NO.  PHASE  NAME  RATE 
A PHASES/) 

701  F0RMAT(I4,4X,3A4,F7.4,I7,5(A1,I2) 

702  FORmTCBOH  NO  CURRENT  PHASES) 

703  FO’^MAT(IX) 

END 
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c.  Subroutine  LOADSO 


A362  SUBROUTINE  LOADSO 

4382  COMMON  SWITCHt 1 1 ) ,NAME< 25> 3 ) #SPACEC25# 59 ) 

4402  COMMON  ICOMMA,  IBLANK,NO>NYES#NY*NPH,  IER,LEVLSR#  IPH,  V7PY, 

4422  AAFD,K1LL>IID,FID,KILLS(25)#SI (25)>TS0UT(25) ,S0(25> 

4442  COMMON  NPHP,IPHASE(25,7),ATR<25>*PNAME(3>,IPRT,NPSU,LS0SW 

4462  A»IDATA(in«IC 

4482  • IF(NPHP)40,40» 10 

4502  10  DO  30  K=1#NPHP 

4522  1=1PHASE(K,7) 

4542  S0(I)«0.0 

4562  DO  20  J=l*6 

4582  IFdPHASECK,  J))30,20,30 

4602  20  CONTINUE 

4622  S0(I)»-1000. 

4642  30  CONTINUE 

4662  LSOSW=l 

4682  CALL  OUTPUT 

4702  LSOSW-0 

4722  IF(IER)40#40*50 

4742  40  RETURN 

4762  50  IER«3 

4782  CALL  ERROR 

4802  NPHP«0 

4822  GO  TO  40 

4842  END 
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d . Subroutine  PIPER 


4862 

SUBROUTINE  PIPER 

4882 

COMMON  SWITCH( 1 1 ) , NAME( 25, 3 ) , SPACE ( 25, 59 ) 

4902 

C OMMON  I COMMA, I BLANK, NO, NYES , NY, NPH, I ER, LEVLSR , I PH, UPY, 

4922 

AAFD,KILL* I ID, FID, KILLS (25)# SI (25) ,TS0UT(25) ,S0(25) 

4942 

C OMMON  NPHP , I PHASE ( 25,7), ATR (25), PNAME ( 3 ) , I PRT , NPS  U, LSOS  U 

4962 

:,IDATA(  1 1 ),IC 

4982 

10 

I F( NPHP) 170, 170,20 

5002 

20 

DO  140  1=1, NPHP 

5022 

IPH=IPHASE(I,7) 

5042 

IF( IPH)40,40,30 

5062 

30 

IF(IPH-NPH)50,50,40 

5082 

40 

PRINT  700, I PH 

5102 

CALL  DP I PE 

5122 

GO  TO  10 

5142 

50 

DO  90  J=l,6 

5162 

IF(  IPHASE(  I , .1)  )80,90,60 

5182 

60 

IF(  IPHASEd, vJ)-IPH)70,80,70 

5202 

70 

IF(  IPHASEd  , J)-NPH)90,90,80 

5222 

80 

PRINT  701,IPH,  (IPHASEd,  K),K=1, 6) 

5242 

INPUT,(IPHA5E(I,K),K=1,6) 

5262 

GO  TO  20 

5282 

90 

CONTINUE 

5302 

IC=0 

5322 

DO  130  K=1,NPHP 

5342 

IF(I-K)100,110,100 

5362 

100 

IF(IPHASE(K,7)-IPH) 110,40,110 

5382 

1 10 

DO  130  J=l,6 

5402 

IF(IPHASE(K, J)-IPH) 130, 120,130 

5422 

120 

IC=IC+1 

5442 

130 

CONTINUE 
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5462 

5482 

5502 

5522 

5542 

5562 

5582 

5602 

5622 

5642 

5662 

5682 

5702 

5722 

5742 

5762 

5782 

5802 

5822 

5842 

5862 

5882 

5902 

5922 

5942 

5962 


IF(IC-1)135, 135* 160 

135  IFtATRCIPH) )137* 140* 136 

136  IF(ATRCIPH)-! .0) 140* 137* 137 

137  PRINT  702*IPH*ATR(IPH) 

INPUT*  ATR(IPH) 

GO  TO  135 

140  CONTINUE 

DO  143  I=1*NPHP 
DO  143  J=l*6 

IFdPHASECI*  J)  )143*  143*  141 

141  DO  142  K=1*NPHP 

IFtIPHASE(K*7)-IPHASE(I* J))142*143*142 

142  CONTINUE 
GO  TO  160 

143  CONTINUE 
150  RETURN 
160  PRINT  703 
170  NPHP=0 

GO  TO  150 

700  F0RMAT(I3*"  IS  AN  INVALID  PHASE") 

701  FORMATC"  FOLLOVJING  PHASES  FOR"*  I3*"*ARE"*3I3/"  PLEASE 
« CORRECT  (XX*XX*XX*XX*XX*XX)") 

702  FORMATC"  PHASE"* 13*"  ATTRITION  RATE  0F"*F8.4/ 

A"  IS  INVALID  RE-ENTER  THE  CORRECT  VALUE  (.XXX)") 

703  FORMATC"  ALL  PHASES  DELETED") 

END 


1 


i 

i 
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e . Subroutine  NOYES 


5982 

SUBROUTINE  NOYES 

6002 

COKMON  SWITCH( 1 1 ) , DUMMY( 25, 62 ) , 

6022 

A I C OMMA, I BLANK, NO, NYES , NY , NPH, I ER 

6102 

10 

1=1 

6122 

INPUT  700, NY 

6102 

IF(N0-NY)30,20,30 

6162 

20 

NY=-1*I 

6182 

RETURN 

6202 

30 

I=-l 

6222 

IF(NYES-NY)00,20,00 

6202 

00 

IEP=7 

6262 

CALL  ERROR 

6282 

GO  TO  10 

6302 

700 

FORNJ^TCAl  ) 

6322 

END 
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6342  SUBROUTINE  ERROR 

6362  COMMON  SVJITCHt  11)  #NAME(25#3 ) ,SPACE(25*  59  ) 

6382  COMMON  ICOMMA, IBLANK,NO,NYES* NY,NPH# lER, LEVLSR, I PH, UPY, 

6402  &AFD,KILL,IID,FID,KILLS(25),SI (25),TS0UT(25),S0(25) 

6422  COMMON  NPHP, IPHASE<25, 7) , ATR<25) ,PNAME( 3 ) , IPRT, NPSW, LSOSW 

6442  «,IDATAC1 1 ),IC 

6462  GOTO  ( 1 ,2, 3,4, 5, 6, 7, 8,9, 10 ) , lER 

6482  1 PRINT  701 

6502  GO  TO  100 

6522  2 PRINT  702 

6542  GO  TO  100 

6562  3 PRINT  703 

6582  GO  TO  100 

6602  4 PRINT  704 

6622  GO  TO  100 

6642  5 PRINT  705 

6662  GO  TO  100 

6682  6 PRINT  706 

6702  GO  TO  100 

6722  7 PRINT  707 

6742  GO  TO  100 

6762  8 PRINT  708 

6782  GO  TO  100 

6802  9 PRINT  709, I I D, FI D, < I DATA( J) , J=1 , IPH) 

6822  PRINT  729 

6842  GO  TO  100 

6862  10  PRINT  710 

6882  100  IER=0 

6902  RETTIRN 

6922  701  FORMATt"  PHASE  IN  PIPELINE”) 

6942  702  FORMAT ("  PHASE  NOT  IN  PIPELINE") 

6962  703  FORMATt”  PIPELINE  LOGIC  ERROR  - ALL  PHASES  DELETED") 

6982  704  FORMAT ("  NO  PHASES  IN  PIPELINE”) 

7002  705  FORMATt"  MAXIMUM  PHASES  IN  PIPELINE”) 

7022  706  F0RMAT<37H  MAX.  FOR  FIELD  IS  3 - FIELD  SET  TO  0) 

7042  707  FORMATt”  INVALID  REPLY  - REPEAT”) 

7062  708  FORMATt 2 3H  COMPUTER  ERROR,  RE-RUN) 

7082  709  F0RMATt27H  RESIDUAL  OUTPUT  FROM  PHASE, 13, 3H  IS,F6.0,9H  STUDEN 

7102  ATS/"  DIVIDED  AMONG  THE  FOLLOWING  PHASES”, 1 3, 5t A1 , 1 2 ) ) 

7122  710  FORMATt”  INSUFFICIENT  DATA  TO  COMPUTE  STUDENT  STATISTICS"/ 

7142  A”  RE-ENTER  STUDENT  ASSIGNMENTS  OR  RERUN”) 

7162  729  FORMATt”  ENTER  APPROPRIATE  MIXtXXX,XXX,XXX, . . . )”//) 

7182  END 


TABLE  9.1  (Cont) 
g.  Subroutine  PIPE  NT 


7Pnp 

7f?^ir> 
7r!6fi 
7PHP 
730P 
7307 
7303 
73<'.ir! 
736? 
738? 
7^:0? 
7''!  ? ?. 
7^14? 
7A6P. 
7ABP. 
750? 
75?? 
75/'? 
756? 
7563 
756/1 
7565 
758? 
760? 
76?? 
76/!? 
76/13 
76/1/1 
76/15 
766? 
768? 
770? 
77?? 
77/1? 
77/13 
778? 
780? 
78/|? 
786? 


Snpi'OUTINE  PIPENK  IDLET) 

COMMON  SUITCHC 1 1 ) , NAME( ?5 * 3 ) ^ SPACE C ?5* 59 ) 

C Ot’?MOM  I C OMriA  , I PLA^?K,  N 0,  NYES  ^ NY  * MPH  , I EP  , LE  v;L  SK  , I PH  , PPY, 
AAFP,KILL,lID,FID,KILLS(?5),SI(?5),TS0t!T(?5),S0(?5) 

COt/MON  NPHP,  IPHASE(?5j  7 ) , ATP  ( ?5  ) * PMAME ( 3 ) ^ I PPT^NPS'.M.SOSV; 
A, inATACll ),IC 
ini.FT=l 

5 DO  10  I = UNPH 
10  SOCI )=0.0 

Pi? I NT  702,PNAt'?E 
?0  INPUT,  I PH*  SOT  IT 
IFCIPH)60,90,30 
30  IF(  IPH-NPH)/10,/!0,60 
AO  no  50  I=1,NPHP 

IFt I PHASE (I, 7) -I  PH >50,70, 50 
50  CONTINUE 
60  IEP=? 

65  CALL  EEi'.Ol' 

GO  TO  ?0 

70  IFCS0UT)7?, 75,80 
72  IFJi=7  ; no  TO  65 

75  pi:  I NT,"  '/.EFO  OUTPUT  I NVALI  D-I'ETYPE  AS  0.01" 

GO  TO  ?0 

80  S0( IPH> =-S0UT 
PPINT  703 
GO  TO  ?0 

?0  IFCSOT'T.EO.l  )G0  TO  9? 

IFCSOnr .EO .? >G0  TO  1?5 
IDLET=0 

9?  CALL  OMTPnT 

IF(  IEi'>  1?0, 1?0,  100 
100  CALL  EiT’Or. 

GO  TO  5 

1?0  CALL  SMOOTH 
RETUl’N 

1?5  inLF.T=?;pETUiJN 

70?  FOPMAT(//"  FOP  PIPELINE:  ",3AA/"  ENTER  PHASE  NUMBER  AND  ST 
5 UDENT  OUTPUT  '^'XXX " > 

703  FORMAT("+NEXT") 

END 
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h.  Subroutine  PIPINP 


f 


7R8S 

SUBROUTINE  PIPINP(PIPE) 

7902 

COMMON  SUITCHt 1 1 ) > NAME( 25, 3 ) * SPACE ( 2 5, 59 ) 

7922 

C OMMON  I C OMMA , I BLANK,  NO  , NYES  , NY  , NPH , I EP. , LE  VLSR  , I PH  , \-JPY» 

7942 

AAFD,KILL#IID,FID,KILLS(25)/SI (25> , TSOUT ( 25) , SOf 25) 

7962 

C OMMON  NPHP , I PHASE ( 25,7), ATR (25), PN AME ( 3 ) , I PRT , NPS  W, L S OS U 

79R2 

&,IDATA(11),IC 

8002 

FILENAME  PIPE 

8042 

IF(NPSU)65, 10, 10 

8062 

10 

READ ( P 1 PE, 700 ) NPHP , PNAME 

8082 

IF(NPHP)60,50,30 

8102 

30 

DO  40  1=1, NPHP 

8122 

READ(PIPE,701 )IL, (IPHASECI, J), J=1,7),AT 

8142 

IPH=IPHASE(I,7) 

8162 

40 

ATR(IPH)=AT 

8182 

GO  TO  70 

8202 

50 

PRINT  702, PNAME 

8222 

NPHP=0 

8242 

CALL  NOYES 

8262 

IF(NY)60,60, 120 

8282 

60 

MPSW=NPHP 

8302 

65 

RETURN 

8322 

70 

IF(KILL)90,90,80 

8342 

80 

DO  85  1=1, KILL 

8362 

IID=-1 

8382 

IPH=KILLS(I  ) 

8402 

85 

CALL  DP I PE 

8422 

IID=0 

8442 

I F( NPHP) 50, 50, 90 

8462 

90 

IFC IPRT) 1 10, 110,100 

8482 

100 

CALL  PI PRT 

8502 

110 

IFCLEVLSR-2) 130, 130, 120 

8522 

120 

CALL  MPIPE 

8542 

130 

CALL  PIPER 

8562 

IF(NPHP)50,50,140 

8582 

140 

IF(NPHP-NPH)150,150,50 

8602 

150 

CALL  LOADSO 

8622 

IF(NPHP)50,50,60 

8642 

700 

F0RMAT(5X,I3,3A4) 

8662 

701 

FORMAT (V) 

8682 

702 

F0RMAT(31H  NO  PHASES  EXIST  FOR  PIPELINE  -,3A4/21H  ENTER  NEW 

8702 

& DATA  (Y,N)) 

8722 

END 

112 


TABLE  9.1  (Cont) 
i.  Subroutine  DP  I PE 


'•7/1^ 

;-,;iproUTI\3'':  DPIPF 

COMMON  P-ITCl-rd  1 )^NAMK(,P5^3>^.PP.nC3'(P5.>59) 

r'78'-> 

coKFot'  icohi-:a, iFPOJ''3.P  ,ip'-s  '9;, 

PFP.,KILL.,  I ID,Fin,KILLS(P5)  ,:-;i  (pro  >T;'0nT(P5)  , S0CP5) 

fy  y 0 0 

CO'.-r.'iO''-  I ■■^v.npEC  P5>7  ) , AT>  ( P5  ) > 'OMF  ( 3 ) , I NTPo’^  L.S03 

yy  no 

p, 

, inoTAc  in  dc 

IF ( I PH) 70, 70, 5 

r'f-:r-o 

5 

no  30  r = i,F'PHP 

no  3 0 .7=1,7 

f/o  0 p 

IF(  I PH.A.''F(  I,J)-n'I)3O,P0,in 

ri9/!7 

10 

IF(IID) 15,30,30 

15 

I TH 7 P.S F ( I , J ) = I =H AS F ( I , J ) - 1 

r'O'^p 

GO  TO  30 

onop 

PO 

IPHA.OFCI,  J)=0 

oop  r* 

.30 

CO'VTIFnF 

oo/:P 

IF( I ID)AO,70,7n 

90  pp 

/|0 

IFC lPH-P5)5O,70,70 

00  pp 

50 

DO  GO  I=IoH,p/! 

91  Pp 

K = I + 1 

0 1 00 

00 

ATi  CI)=OTi'.(K) 

0 ] /•  0 

70 

L=0 

PI  6P 

no  90  i=i,r?Pi-n 

nirp 

I F c I PH  a;:  F(i,7))nn,80,90 

0 0 D 0 

P,0 

L=I 

QO  0 0 

GO  TO  1 10 

OO/jO 

90 

C0FTIF7IF 

00/^0 

ion 

7-;ktu'h-; 

n 

1 in 

IFCl.-NPHP)  l.PO,  1 AO,  lAO 

<^30  0 

1 pn 

^7=^’:p7!p_  1 

0300 

no  130  I=T.,P! 

P3/;P 

H = I + 1 

93  6 P 

DO  130  J=l,7 

9.3 .3  P 

1 30 

I PHA .5 F < I , J ) = I PH A.'l F ( K , J ) 

o/iop 

1/|0 

NPH?=MPHP-1 

n/!'>p 

IF(HPHP) 100, lOO, 70 

FFD 
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TABLE  9.1  (Cont) 
j.  Subroutine  OUTPUT 


snnronTIKE  onipni 

0/|PP  COMUnv  SWITCHU  n,NAMF(S5>3)iSFACF:cr!5^59) 

0 50 f!  C OMMO^!  I C OMMA  j I P,LAK'K , NO , ^3YKS , NY > NPH , I Ki3  > LF  VL SC > I PH , '■:PYj 

95PP  '’  AF11>KILL,  1 1 D,  F I D> KI  LLS ( S5  ) , S I ( P5  ) , T50UT(  2 5 ) > S0(  2 5) 

05/1 2 C OMMON  NPH?,  I PHA.SF  ( 2 5 , 7 ) , ATP.  ( 2 5 ) , PNAMF  ( 3 ) , I PP T , NP5 H,  L.5 0.5 P 

9562  " , IDATAt  1 n,  IC 

05P^  IFP.=0 

0602  10  ICK=0 

9622  IALL=0 

96A2  DO  60  L=1,N^HP 

0660  N=NPHP+1-L 

96P2  I =IPHASE(M,7) 

9702  IF(SO( I ) )50,20,20 

9722  20  TA=0.0 

07/! 2 no  /lO  ,1=1,6 

9762  K=I  PHA.SF  a-',  J) 

0702  IF(K)/i0,A0,30 

9202  30  I F(. SOCK) ) 35, 60, 60 

9P.22  35  TA=TA+.SOCK) /C  1 .O-ATP.CK)  ) 

nr./so  /in  CONTINUE 

9260  IFCTA)/j5, 60,60 

0222  A5  ICK=1 

0002  SOCI)=TA 

0922  50  IALL  = I.ALL+1 

0O/i2  IF(IALL-NPHP)60,80,20 

9962  60  CONTINUE 


0022 

IFC ICK)70,70, 10 

1O002 

70 

IF(L.S0SW)75, 75,90 

10022 

75 

CALL  OUTFOI: 

100A2 

IFCNY)90,90,  10 

10062 

PO 

DO  P5  L=1,NPHP 

10022 

I=IPHASECL,7) 

10102 

P5 

.S0(I)=-50CI) 

10122 

GO  TO  100 

101/(2 

90 

IEr=10 

10162 

100 

COl^’TINnp 

101  po 

RETUPN 

10202 

END 

t| 


jnpop  .••nr.'.onriNE  oniFor 

mn/'E  S'.'rrCHC  l l >,NAMF.(E5j3)^SPACKCr!S>59) 

inrir-n  cn:>vop  icomha,  iFrw.KVT.?'::>  iph,  r 

! OFf-’P  0 Atrn,  vn.L,  1 1 1),  FI  n,  KI  LLS  C R5  ) , S I ( P5S  ) , ISO.  : ]•(  , ;30(  "^5  ) 

1 n 3 n f!  c O'-'f  ' OE  EIPHP  , I PHA 3 F ( P 5 ^ 7 ) , A Ti  ■.  ( P TO  , pA  A*  'E  ( 3 ) , I PlVf  > ^:P  3 ' Y E . i OF 

103P^  A , IDATAC 1 1 ) , IC 

1 0 3 -A  P n I ?■'  !•:  N S ! 0 Y T c A ) 

103AP  EY=n 


in3"<r  in  iCK=o 

lOAOp  no  170  II=1,PPHP 

lO/'PP  I =IPHA5E(  1 1 ,7) 

lO/.AP  IFCGOCI  ) )P0,  1 70,  1 70 

in/i,',p  po  TA=0.0 

lOAOP  IL=1 

I05OP  PO  AO  J=1,A 

105PP  K=IPHASE( I I , J) 

lOfv'ip  IF(K)6n,A0,3O 

moAP  30  IFCSOCtO  )A0,50,50 

jnr;r!^  /in  TA  =TA  + S 0(K)  / f 1 .O-AT'^  HO  > 

iar,0'':  (U)  TO  AO 

jnppp  ^n  IPAT A(  ID  =!\ 

lop/ip  IE=I1.+P 

lOAAP  I.=E 

lOAP'-'  AO  COPT  I NOE 

invn-  A=SO(!)-TA 

I07PP  IE  = IT,-:^ 

107/1-  IF(  IE-1  ) 1 70,30,  1 10 


I 

I 

I 


TABLE  9.1  (Cont) 
k.  Subroutine  OUTFOR  (Cont) 


! 


107, --.p  f-,0  if(A)9o,  ipn,  ino 

1070P  90  SOCL)=A--!:(  1 .n-ATi-.(L)) 

lOROP  MY=1 

10900  ICK=1 

lorvip  GO  TO  170 

lOOOP  110  A=-A 

10990  IF(A) ion, ion, 100 

looop  inn  iin=i 
mono  IFF=9 

lOOAP  IPH=IL 

10960  FID=A 

inopo  CALL  Fonoi: 

lioo-^  M = IL/0  + 1 

11000  105  inpUT, (T( J), J=1,N) 

llOAO  TOT =0.0 

llOGO  DO  100  J=1,M 

noon  iF(T(  J) ) lAO,  ion,  130 

llino  130  TOT=TOT  + T(J) 
lllAO  n.  = AFS(TOT-A) 

11169’  IF(F-1  .5)  1 50,  1 50,  lAO 

lll^'O  lAO  IFF  = 7 
11  non  CALL  EFiFOi: 

11000  GO  TO  105 

nn/io  150  j=o 

11060  DO  160  L=1,IL,0 

110.90  J=J+1 

11000  IC  = IDA.TA(L> 

11300  160  :;0(K)=-T(  1 .n-ATOnO  )*A/TOT 

1136m  ICK=1 

11360  KY=1 

11390  170  CONTI  MllE 

llAOn  IF( ICIO  IRO, 190, 10 

11  non  190  p.ETUi'.w 

11/1.30  Ef'’0 


TABLE  9.1  (Cont) 

1.  Subroutine  SMOOTH 


SUBr.OnTINE  SMOOTff 

C0M^'0^!  SUITCHU  1 ),HAMEC?.5»3),5PACE(25,59) 

I 1 SO'"  C0Mt■’0^?  ICOMt'.A,  IRLANK,MO>NYESj  NY^  NPH>  IEn>LEVLSR>  IPH, 

1152?  ftAFD.KILL»IID,Fin,KILLS<25)>£>I<?.5)>TS0iJT(?5)^  50(?.5) 

I I 5/1?  COMKOM  NPHP,  IPHASF(25,  7)* ATR(?5)  #PNAME(3)  , IPI;T,NPS:;^L.S0S-; 

1156?.  ^ , in.ATAt  in,IC 

1150?  Di:;Fr-’5ior’  t(3) 

1160?  5 no  ?n  L=1#FPHP 

116??  I=IPHA.5E(L>7) 

116/'?  DO  10  J=l,6 

1 1 66?  IF( IPHASEfL, J) ) 10, 10,20 

1168?  10  CONTINT’E 

1170?  .50(  I )=-.50(  I ) 

117??  ?0  COMTINUE 

117/!?  30  ICK=0 

1176?  1ALL=0 

1178?  DO  no  L=1,NPHP 

1180?  M=NPHP+1-L 

n«??  I =IPHASE(M,7) 

118/!?  IF(.50(  I ) ) 100,  ioo,/in 

IIPPO  /<o  T0  = .?1 

1188?  DO  70  J=l,6 

1190?  K=IPHASE(M, J) 

119??  IF(K)70,70,50 

119/1?  50  IF(SO(K)  >60,70,  1 10 

1196?  60  TA=TA+SOCK)/( 1 .O-ATO(K) > 

1198?  70  OONTINIIE 

l?On?  IFCSO( I )+TA>90,80,80 

1?0?2  80  50(I>=TA-.01 

1?0/!?  GO  TO  100 

1?06?  90  SO(I>=-SO<I> 

1?08?  ICK=1 

1?10?  100  IALL=IALL+1 

121??  no  COMTIMUE 

1?1/1?  IF<IALL-N?HP>30, 1?0,  120 

1216?  120  DO  130  L=1,NFHP 

1218?  I=IPKASE(L,7> 

1??0?  130  .‘30(I>=-.S0(I> 

1????  IF(ICK>1A0, 1/10,150 

l??/i?  lAO  CONTINUE 

1??6?  PKTUPN 
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TABLE  9.1  (Cont) 

1.  Subroutine  SMOOTH  (Cont) 


150 

no  300  II=1,MPHP 

1P30P 

I=IPHASE(II,7) 

1P3PP 

TA=  -.01 

1P3/'P 

IL  = -1 

iP3r-.p 

DO  170  J=l,6 

1P3«? 

K=IPHASE(II,  J) 

1 P/'OP 

IF(K) 1 70, 1 70,160 

IP-'iSG 

160 

IL=IL+2 

IP.AA2 

IDATA( IL)=K 

12/162 

TA  = TA  + S0(K)/(  1 .O-ATP.(K)  ) 

IP/iRP 

170 

CONTINUE 

1P502 

T(  1 ) = 1 .0 

1 P5PP 

R = 1 .0 

125/12 

IFC IL)300,300,  180 

12562 

IRO 

IF(S0(L)-TAM90,300,300 

1P552 

190 

IF(IL-1 >300,250, 195 

1P60P 

195 

I ID=L 

12622 

FID=S0(L) 

126/12 

I El.  =9 

1P66P 

IPH=IL 

1P.6P2 

CALL  Err On 

1P70P 

N=IL/2  + 1 

12722 

200 

INPUT, (T(I >,I=1,N> 

1P7/|2 

R=0  .0 

1P762 

DO  2/10  I=1,N 

!P7f<P 

R=P.+T(  I ) 

IPPQP 

IF(T(  I > >280,2/10,2/10 

12P2P 

P/'O 

CONTINUE 

IPP/lP 

TA=AP5(R.-S0(L>  > 

1PP6P 

IF(TA-1 .5 >250, 250, 280 

IPPPP 

250 

I =0 

1290P 

DO  260  J=1,IC,2 

1P9P2 

1=1  + 1 

lP9/)2 

K=IDATA( J> 

1P9  62 

P60 

50CK>=T(  I >=:<SO(L>  + ( 1 .O-ATROO  >/R 

129P2 

GO  TO  5 

I3nnp 

220 

IFi  =7 

13022 

290 

CALL  ERROR 

130/12 

GO  TO  200 

130  62 

300 

CONTINUE 

130P2 

GO  TO  5 

1310P 

END 

1 
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TABLE  9.1  (Cont) 
m.  Subroutine  NFODYN 


131PP 

1 3 1 A2 

13162 

13182 

13202 

13222C  - 

13232 

132/12 

13262 

13282 

13302 


1 

SUBPOUTINE  MFODYNCPIPE, I5OTCH, IDYM) 

D I MENS  ION  IS  IJTCH  (10) 

FILENAME  PIPE 
IDYN=0 

I F ( I S WTCH  ( /! ) . EO  . ( - 1 ) ) I DYN=  1 
- IDYN=1  IMPLIES  AN  ENTRY  FROM  DYNAMIC  IFP.S 
K=ISMTCH(5) 

IFCK.EQ.l )PIPE="PIPE” 

I F(  1(  . EO  . 2 ) P I PE="NF OP  I PE" 

OPENFILE  pipe;  REWIND  PIPE 
return; END 


1 

i 


■i 

i 


I 

I 
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X.  PROGRAM  LSR3 


10.1  Program  LSR3  is  listed  in  Table  10.1.  The  changes  are: 

• NFO  planning  factors  were  added  to  the  common 
area  of  storage  (e.g.  , line  185).  Also  line  264 
contains  a few  extra  words  of  temporary  storage 
(variable  FITN  and  FIN) . 

• Line  265  is  a test  for  the  simple  constraint  calcu- 
lations. If  they  are  to  be  performed,  control  goes 
to  subroutine  PRECONST. 

• Line  863  now  prints  a partial  title  on  the  LSROUT 
file.  The  training  system  type  (pilot  or  NFO) 
number  and  the  date  are  printed. 

• Lines  870  to  966  are  new.  There  are  now  two 
loops  calling  GENLSR.  The  first  loop  prints 
out  instructor  data.  The  second  loop  prints 
out  aircraft  data. 

• Note  that  lines  1276  and  1278  are  comment  lines 
that  are  part  of  the  format.  This  is  to  let  the 
academic  instructor  information  be  printed.  Only 
a few  changes  are  required  to  get  this  printed. 

It  was  printed  in  IFRS  II  but  it  is  not  printed  now. 

• Line  2003  now  tests  to  see  if  there  are  any  aircraft 
or  academic  instructor  types  in  the  phase.  If  there 
are  not,  the  program  then  prints  "Values  not  con- 
straining." Previously  the  program  would  go  to 
statement  number  5. 
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ffigCIDIlO  PAOI  BLAMC-NOT  fllMBD 


A 


li 


• The  argument  SOUT  was  added  to  subroutine  GENLSR. 
This  was  necessary  to  avoid  modifying  the  SO  array 
in  common  which  was  then  used  by  LSR4.  Previously 
the  values  of  SO  were  modified  by  the  LSR  constraint 
option  at  line  2423. 

• GENLSR  has  been  modified  to  handle 

. The  NFO  calculations  (lines  3744,  4285  , 

4302,  4362,  5365,  5366) 

. The  new  print  changes  (lines  4923,  5284 
to  5921). 

• If  the  academic  instructor  information  is  to  be  printed , 
the  comment  lines  in  GENLSR  can  be  modified  to  get 

it  printed  (lines  5604,  5684,  5844-5884). 

• PRECONST  is  the  new  subroutine  to  set  up  and  print 
out  the  simple  constraint  calculation  results.  Once 
the  options  and  values  are  entered,  it  calls  sub- 
routine CONST  to  compute  the  related  values . 

• Subroutine  CONST  calculates  the  related  requirements 
by  evaluating  the  appropriate  algebraic  relationships. 


i 


i 

I 

i 

•I 

{ 
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TABLE  10.1 

PROGRAM  LSR3  LISTING 


103  COMMON  lYR^ISWTCHClO) 

103  COMMON  NAME(P5,3),NPLA(0  5,3)>NFUEL(?!5,3),NACD(S5,3)^ATP(05), 

l/'3  AWK<0  5)>T0D(P5)>NAC(R5),NAD(S5),  WX(P5,3),GAS(S5,3),AIUP5,3), 

163  AFn(P5*3),SFH(P5>3),FIH(25>3)^FTP.C25>  3),FS0(P5^  3),AM0(R5,3)  , 

1P3  ^ A5H(25,3),AIH(P5^  3)  jAITP.(2  5,3) 

1R5  COMMON  FnN(25j3),FIHN(P5,3),FTP.N(25,3) 

P03  COMMON  ICOMMA, IBLANK,NO,NYES,NY>NPH, lER^LFVLSR, IPH, WPY> 

PP3  AAFD,KILL, IID,FID,KILLS(P5),SINP(25)>S0(P5) 

P/i3  COMMON  1ACT(3)^IAFT(3),IAIN(3),BFC3),FIT(3),FI(3), 

P63  AFLS0(3)^EM(3),AIT(3) jACN0(3),AI (3) 

26A  COMMON  FI TN( 3 ) > FI N( 3 > 

265  IF(  ISWTCHCA)  .EO  . (-1  ) )CALL  PP.ECONST 

PR3  IID=1000 

303  CALL  LSTLSR 

323  IF(LEVLSR-P)30,P0, 10 

3A3  10  IFCLEVLSr.-/i)30,P0,30 

363  PO  CALL  MODLSP 

3R3  30  IF(LEVLSR)50,50,A0 

A03  AO  PRINT  700 

/iP3  CALL  NOYES 

AA3  IFCNY)60,60, 70 

A63  50  lev;lsp.=-levlsr 

A53  60  CHAIN"XLSRA*" 

503  70  CHAIN"XLSR1*" 

5P3  700  F0r;MAT(P7H  GENERATE  ANOTHER  LSR  <Y>N)) 

5A3  END 
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TABLE  10.1  (Cont) 
a.  Subroutine  LSTLSR 


sr-.3  iinniioniiNF  lstlsf 

583  C OMMOM  I Yu  , I 5 l-’TCH  CIO) 

00  3 COMMON  NAMFCF!5j3)  jNPLACP5*3)^NFUEL(25*  3)  jNACnCP5,3)»ATP(35)# 

0P3  APK (P5),T0D(25)>  MAC ( 25 ) * NAD  C 25 ) # VW  ( 2 5 > 3 ) , GAS  C25#3)^AU(2  5,3)* 

0/1 3 .<lFn(25,3)>SFHC25>3)>FIH(25,3)  jFTH(25>3)^FS0(25^  3)>AM0(2  5,  3)> 

003  <!ASH(25,3),AIHC25^  3),AITP(25^  3) 

005  COMMON  FnNC25^3),FIHN(25#3)^FTnN(25,3) 

083  COMMON  ICOMMA,  IBLANK,NO,NYESj NY,  NPH>  IEP,LEULSR,  IPH, ’//PY, 

703  >IAFD,KILL,IID,FID,KILLSC25),SINPC25),S0(25) 

723  COMMON  I ACTC  3 ) , I AFT C 3 ) , I AI N( 3 ) ,BFC  3 ) , FI T ( 3 ) , FI C 3 ) , 

7A3  &FLS0(3),EMC3),AIT(3),ACN0(3),AI (3) 

7A/|  COMMON  FITN(3),FIN(3) 

823  OPFNFILE  "LSI'. OUT" 

8/13  FEUIND  "LSnOUT" 

803  Vr.  I TE C "LSn OUT",  703  ) NPH,  I SWTCHC  5 ) , DAT C X ) 

870  W = -10 

871  Pl'INT  710 

883  DO  10  1=1, NPH 

903  IPH=I 

'^"'3  in  CALI.  nFNL.St.  (SOC  I ) ) 

0/13  CLOSEFI  LF"LS(’OUT" 

953  NY=-12 

95/1  Pl'INT  712 

90/1  DO  12  1=1,  NPH 

n05  IPH=I 

900  12  CALL  GENLSHCSOC I ) ) 

97/1  IFCLFVLSL.NF.  1 )G0  TO  18 

975  GO  TO  100 

983  18  PM  NT  702 

100  3 CALL  NOYE.S 

)nr>3  IFC  W)/!O,/|O,20 

tn/i3  20  no  30  1 = 1,  NPH 

1003  IPH=I 

1083  CALL  GFNLSPCSOCI)) 

1103  30  CONTINUE 

1M3  /|0  FETUPN 


TABLE  10.1  (Cont) 
a.  Subroutine  LSTLSR  (Cont) 


I 

1 

1 


1130  100  PKIMT  300 

1130  105  INPUT^IPH 

113/1  IF(  IPH)  1 lO^/iO,  120 

1136  110  Pi:iNT^"PHASE  DOE.';  MOT  EXIST  - KETYPE" 

1133  GO  TO  105 

11/10  120  IFC  IPH.GT.MPH)GO  TO  110 

ll/'P  NY=1 

11/1/1  COLL  GFNLSEtSOCIPH)  ) 

11/16  GO  TO  100 

1150  ROO  FOPMATC/”  ENTEE  PHASE  NTJMBEF.  FOE  DETAILED  LSK 
1152  ^OF  THAT  PHASE"/"  ENTEE  0 (ZERO)  FOR  NO  DETAIL") 

12/i3  70*^  FOr^'/'T(//"  DETAILED  LSR  OHTPtTT  DESI’''ED  FOP  ALL  PHA  PF.‘‘ ( Y> ’’) " ) 

1263  703  F0RNATC5H1000  ^2I3>"  STATIC  IFRS  ">A3) 

1265  710  F0RMAT(//17X>"  + FLIGHT  I NSTRUCTOP^S*  LSO 

1266  AADNIN  total  TOTAL"/"  TRAINING  PHASE  EFFECT 

1267  h HIT  TOTAL  l';E0MT  OFF  OFF  ENL") 

1273  712  F0-:NAT( //1 6X,"*  ArnCi;AFT+  FOEL  GALLONS  ANN/H'  S 

1275  0 MO 

1276C  0 * ACAD.  INSTRS  * 

1277  0"/"  TRAINING  PHASE  TYPE  NO.  TYPE  - - (OOO)-  - - - 

1273C  A EFFECT  Ii;T" 

1279  O FACT.") 

1233  END 
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TABLE  10.1  (Cont) 
b.  Subroutine  MODLSR 

130  3 ;jrm;:Oi'TINF  r-TODLSR 

1 3 3 C OMMON  S ITCH ( 1 1 ) 

1 3/| 3 C 0t-3'!0\-  NAME  C C 3 > 3 ) , NPLA  ( R 3 , 3 ) , NFUKL ( C 5 > 3 ) # FAC D ( P 3 , 3 1 , P T/  < ^ 5 ) , 

13A3  ^.HKfP5)*T0D(P5),r;AC(P5)*NAD(P5),  v.r-<P3^3),GA3(P5^3),A!KP5>3), 

13  -3  '’,Fn(P5,3),SFH(P5,3)>FIH(P5,3)*FTK(P5>3),F.;0(P.5*  3),AVO(P5>  3), 

1A03  "''3H(P5>3)^Ain(P5,3),AITH(P5j3)  ^ 

c o:ii.:or-;  f'  c 2 5 ^ 3 > , f i hf  ( p 5 ^ 3 > ^ ftp f c p 5 # 3 > 

1 /I 3 C OFF  OF  I C OMFA  , I P L A FK  J N 0 , NYE  3 > MY  , MPH  , I E < F,  ' 'L  P > I PF  # V.')’  Y , 

1/1/13  ’.AFD^KILL,  1ID,FIDjKILLS(25)#  3IMP(P5),.S0(25) 

! /'  A 3 C ! AC  T ( 3 ) , I APT  ( 3 ) , I A I M ( 3 ) ^ PF  f 3 ) , F IT  f 3 ) , F I ( 3 ) , 

l/i«3  ^.FLS0(3)^FF(3)>AIT(3)>ACN0(3)^  AI  (3) 

I COFFOF  FITF<3),FIi'.  (3) 

1303  5 poiIvT  700 

15P3  CAIX  FOYFH 

1S/!3  IFd'lYHO,  in,PO 

13A3  10  FFTOpM 

1F<’A  on  PPIFT  701 

ir,03  AO  IMPOT^ipH 

1AP3  IF(IPH)30,2A0,G0 

10A3  50  PPIFT,  " IFFALin  PiEPLY  - PF.PFAT" 

1003  no  TO  AO 

1003  on  IF( IPH-NPK)05,05,50 

1703  05  ,50nT  = S0(  IPH) 

17-' 3 I FC  5007)60,00,67 

17A3  00  P ’Itit  71/j 

1703  GO  TO  5 

rrF3  0 7 CALL  GFFL.Sr  (.3  0(1  PH)  ) 

1003  PPIMT  703 

r'P3  70  ifp:)t,if,ie 

10/1?  IF(IF)1  10,P5O,00 

inn?  po  IF( IF-3)90,on, ino 
1!’."'3  90  F = FAC(IPH) 

1003  GO  TO  130 

inoo  ino  IF(  IF-/!)  1 10,  IPO,  1 10 

in/jT  110  V IFT,  " IMo.ALID  FEPLY  - PEPFAT" 

1003  GO  TO  70 

! 90?,  1 n F = VAD  ( I PH ) 

'■>00  3 130  IF(F)2?.0,2P0,  lAO 

'’OP?  lAO  IF(  IF)  1 10,  1 in,  1/15 
"’0.'i3  1A5  IF(  IF-M)  150,  150,  1 10 

POA3  150  priMT  705 
P0«3  155  IFPO-f,!) 

''103  IF(D-0 , 1 ) 157,  1 57,  1 00 

'’1P3  157  PPIMT,  ’•  IMVALID  PFOLY  - P.FPEAT" 

P1A3  GO  TO  155 
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TABLE  10.1  (Cont) 
b.  Subroutine  MODLSR  (Cont) 


lf>n 

no  I'o  ci7n,i3n,ion,onn),iF 

o j y 3 

1 70 

u-=Ac:'  ()( 11’) 

o o n T 

GO  TO  010 

0^1  O T 

1 !‘:o 

U=FIT( I K)+FI CIF) 

GO  TO  010 

rvo 

1 on 

V:=FM(  IF) 

f'*n  c *7 

n 0 T 0 1 0 

'■’30  3 

'’00 

O=017(  lTr)+AI  (IF) 

^’33  3 

'’10 

IF(D-\0030,000,opo 

■^3  A 3 

opO 

poiF-T  707 

GO  TO  030 

'’3  0 3 

0 30 

3=T'l/U:t:.S0nT 

'’333 

p:'IFT  703, SOOT, 3 

'V’/.'3 

.'■IM'’(  IP;r)='-;i^''.’(IFH)  + .3/.3  0OT 

'’/!  /\  3 

.■•OrT  = '' 

0 

r’i'=o 

'’/I  /!  7 

CALI.  GFFLS  (SO: IT) 

'’/'0  3 

0 30 

P'.iI!'’T  700 

'’/I  3 3 

CALL  NOYF'' 

'’3  0'’ 

IF(’:Y)'’33,033,030 

O f,  o 3 

030 

PFIFT  713 

‘’!>/i3 

no  TO  70 

'’30  3 

033 

rriMT  710, (’;a;.;v(ifh, J), j=i ,3) 

'’33  3 

call  FO'i'F;' 

'’00  3 

IF(:.'Y)0AO,0An,03-3 

'’  0i  *’  3 

0 3<^< 

CALL  gf;':i.;::  comt) 

'V,/i3 

030 

P:  IFT  711 

'’00  3 

call  ’’OYF'' 

r’0*'3 

I F(  V )070, 070, 00 

'•>70  3 

‘’70 

i I FT  710 

'’7'’ 3 

CAI.L  ?.:0YFS 

37/:  3 

IF(kV) 10, 10,030 

'’70  3 

■’30 

CHA I Y";''LS1'  0>:0' 
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b.  Subroutine  MODLSR  (Cont) 


r 

f 

r 

V 

t 


?nn  folmat(o.?h  aky  l.s:  output  consthaints  (YjN)) 

PAO?  70  1 F0I  MAT(17H  PHASE  (XX)  ) 

'5FP3  703  FOl'MATC  SELECT  APFPOPI'IATE  FIELD  AND  ELENENT  (X,X)"/ 

?f<A3  0."  1 AIPCEAFT"/"  ? FLIGHT  I NSTPUCTOPS"/ 

'^‘^63  op’  3 ENLISTED  SN'PPOP.T"/"  A ACADEMIC  I NSTnuCTOLS" ) 

0003  70S  FORMATC"  EI'TEP  COMSTPAINING  VALUE  (XXXX.XXX)") 

oop3  707  F01'MAT(P6H  VALUE  IS  NOT  CONSTP.AI  NI NG) 

00/13  70R  FORMATC  19H  OLD  STUDENT  0UTPUT*F6 .0/1 9H  CONSTi'.AINED  OUTPUT^FA. 

09 A 3 ftO) 

OOR3  709  F0PMATC09H  ADDITIONAL  CONSTRAINTS  (Y,N)) 

3003  710  FOP.MATCOIH  NEU  LSI-;  SUMMARY  FOR  ,3AA,6H  (Y,N)) 

3003  711  FOoM/^TrOOH  ANOTHEr  PHASE  CONSTRAINED  CY^N)) 

30A3  710  FORMATC'*  REVISE  LSP  TO  INCLUDE  CONSTRAINT.'.'  CY,N)") 

30 A 3 713  FORMATC"  SELECT  APPROPRIATE  FIELD  AND  ELEMENT  C'-'^X)") 

3003  71A  FORMATC"  PHASE  CONTAINS  MO  ACTIVITY") 

0103  END 


i 


ill 


TABLE  10.1  (Cont) 
c.  Subroutine  NOYES 


j o 3 

0 1 /n 

T 1 f'  ? 
•<p/i  p 

3 P /I  p 
3 3 A 3 
3 3 r;  3 

3/103 
3/1  "^3 
3 /I /I  3 
3/ir-.3 
3/1  r 3 
330  3 

3503 


fjopi  omtim:  foyk;' 
nOPMOt;  PV^TCHC  1 1 ) 
c or-'r ;oY  n' p/?'!y c p 5 ^ r,p ) 

ICOt-'RA,  IPLA^•K>^•0,^'YF;•,,^;Y,''•?P,  I Pi 

10  1 = 1 

IVPMT  700, PY 
IF(W0-PY)3O, 00,30 
on  A'Y  = - 1 =!i  I 
i'FTUFN 
30  I=-l 

IFC^:YE;:-^JY)/|0,on,/!0 
/'O  PI.IKT,  " INVALID  PEPLY  - HEPEAT" 

GO  TO  in 

700  FOPMATCAl) 

FED 


i 
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TABLE  10.1  (Cent) 
d.  Subroutine  GENLSR 


Ts/iT  '';”r"0MTi'T  (sonx) 

35.'3  COMMON  I Yii>  I SV'TCHt  1 0 ) 

?5F3  COMMON  NAMF(ri'S,3)^NPLA(P5>3)  ^NFnFL(r>5^3)  >NACDC0  5^  3)  #ATF(r>5)  , 

3A03  "■”•(33)  ,100(35)  >NAC(R5)>NAD(f!5),  v.-'C (35^3)  * gas (S5^3)>A.nc 3 5,3>, 

30^' 3 ^F”(35,3),3Fn(35,3),FIH(35,3),FTr;(3  5,3),FJ0(35,3),AIj0(3  5,3), 

3 r,  /■  3 A 3 5-  ( 3 5 , 3 ) , A I H ( 3 5 , 3 ) , A I T n ( 3 5 , 3 ) 

3A/>3  CO'-MON  FnN(35,3),FI>IN(35,3),FTF.N(35,3) 

3AA3  C0^3'0M  ICOMMA,  IDLAMK, NO, NYES,I'’Y,NFH,  IFF, LFVLCi:,  rCH,  '..T-Y, 

3A0  3 .1AFP,  KI  LL,  1 1 D,  FI  D,  KI  LLS ( 25  ) , S I NP  ( 3 5 ) , 5 0(  35  ) 

3703  COMMON  IACT(3) , IAFT(3), I AIN(3),PF(3) ,FIT(3) ,FI ( 3)  , 

37^3  ".FLr  0(  3 ) , E:.'(  3 ) , A I T(  3 ) , ACNO(  3 ) , AI  ( 3 ) 

37^5  COMMON  FI TN( 3 ) , F I N( 3 ) 

37A3  ^I^!FN:•I0^l  n ( 3 ) , x 1 ( 3 ) , X3  ( 3 ) , T 1 N(  3 ) 

37A/i  i;F0=irA.’TCH(5) 

37 A 3 FMX=n.O 

37^-'3  ic  = iin 

3303  DO  10  1=1,3 

330/1  xi(i)=o.o  ; x3(l)=n.o 

3305  T1N(I)=0. 

3--0.'-.  Fi',(i)=o.  ; Fixr:(i)=o. 

33 03  I AC  T ( I ) = I PDA  NK 

33/' 3 I ''FT  ( I ) =I 

3>'o3  I AIi'’(  I ) = I FLANK 

3333  PF(I)=0.0 

3003  FIT(I)=0.0 

300.3  FI(I)=0.0 

30/13  FT. 30(1)  =0.0 

3003  F?'(I)=0.0 

30.^3  OIT(I)=0.0 

/'003  act;o(I)=o.o 

/’O03  "(  I ) =0n(  IFH,  I ) ( I PH,  I )*AFD 

/in/|3  10  AI(I)=o.O 

/’O33  '•  I =SI  T?P(  IPH) 

/'!  03  .SL=(5I  3ATP(  I PH) +5  OnX=^(  1 .0-ATP(  IPTT)  ) ) + FK(  I PH)  / ■.PY 

/1P3  ■■  = NAr.  ( IPT-T) 

/'l/i3  I;'(N)05,05,00 

/|1A3  00  no  30  I=1,M 

/ 1 F 3 I AC T ( I ) =NPLO ( I PH , I ) 

/1003  Acr’0(  I ) = (sotit+;;fh(  IPH,  I ) ) /(AH(  IPH,  I )i!i'.a:(  iph,  i )=T'AFD) 

/|203  IF(F:;0(  !PH,  I ) )PP,03,o/, 

/|0/|3  2/!  FL30(  I ) i=.':L/F.50(  IPH,  I ) 

/lO  A 3 ""0  I A FT  ( I ) =NFHF.!.  ( I PH  , I ) 

I.np'x  r.v(  I ) ::.ronx-^(3A3(  rpu,  I ):»:.FF"(  imr,  I ) 

/|2f,'5  IF(!:K0.;\F.2)n0  TO  09 

A30''  Fi;/(  I ) =.'-0'IT*FIHN(  IPH,  I ) / ( FHN(  IPH,  I )1=VJX(  IPH,  I ) ‘lAFn) 

/1303  00  FI  ( I ) = (.S0nTi*=FIH(  IPH,  I ) ) / ( FIK  I PH,  I )*VP:(  IPH,  I )*AFD) 
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/] ? 

■/:>'(  I ) =OCrO(  I )/o0M0(  I PH,  I ) 

/1 3^!,? 

Tr;/T=KiT + }'■■'(  I ) 

/'36P 

FITMC  I )=FIM(  I )*FTi'H  C IPH,  I ) /TOnc  I PH  ) 

/'  3 3 

30 

FIT( I ) =FI ( I )*FT  ( IPH, I ) /Tone IPH) 

/t3f-!3 

FACT=1  .0 

/i/m^ 

IFCFi-'T-OOO  . )70, 5O,/i0 

/lyif  3 

/lO 

IF(FMT-^;00.  )50,30,3O 

/!/(/!  3 

50 

FACT=1 .15 

A/ir,3 

GO  TO  70 

/I/I  R 3 

30 

FACT=1 .10 

/1 3 /1 3 

70 

EMT=FACT*FMT 

/'S33 

95 

M=HOnC IPH) 

/i3«3 

IF(M)  130, 130,  1 OQ 

/ir-,n3 

1 oo 

no  110  I=1,M 

/ir.3  3 

I AIN( I )=HACD( IPH, I ) 

/|3/i3 

AI  Cl  ) =S0'IT+ASH(  IPH,  I ) /AIHC  IPH,  I ) 

/ir,r>3 

1 10 

A I T C I ) =A  I C I ) H:A  I T3;  C I PH  , I ) /TOO  ( I PH  ) 

/I  r.  3 3 

1 on 

T0FF  = 3i  ,o 

/!70  3 

PO  lAO  1=1,3 

/I  Y ./ 

TOFF=TOFF  + FI'''CI  )+FITNC  I ) 

/',73  3 

1 /'O 

TOFF==TOFF-fAl  ( I )+AITC  I )+FI  C I )+FIT(  I )+FL 

/'7/i3 

T''P=TOFF+FT’"r  + Pl 

/i7f'-3 

IFCT3P-530.0)1/!3,  lA'^,  lAA 

/i7'"3 

1/!3 

or'  = o. 030357  lAT.'-P 

/inn.q 

GO  TO  133 

/I3.P3 

1/i/i 

IF(T0''  -133O  .O)  i/i3,  i/i3,  l/i7 

/ir:/i3 

l/'3 

,0-.:  = 7./i  + 0 .0  1 7 1 /i'^P*T.5P 

/;33  3 

GO  TO  lAP 

/I3-F3 

1 /i7 

AH=1  7 .0333  + 0 .nnr<3335:i:T5P 

/■on  3 

1 /'  R 

TOFF=TOFF+AI'- 

/lOo  Y 

IF(-10.^•F.^”•)GQ  TO  155 

/lO  3 

10=10+5 

30  0 3 

•■••i  ITFCL.'-':  0HT",719)  10,  CKAMKC  IPH,0)  , 0=1 

303  3 

10=10+5 

30/13 

O'  I TF  ( "1,3  ' OHT"  , 730  ) I C , 5 I , 3 OHT , 3L,  T OFF , 

3n  r,  3 

10=10+3 

30  P 3 

HP  I tF C "L3i'  OHT"  , 733  ) I C , I AOT  , I AFT 

3103 

10=10+5 

313  3 

”■  TTFC"P^”0MT", 733 ) 10, A OHO 

3 1 /I  3 

IC=IC+5 

3133 

'••PITF("I,SPOnT",  733  ) IO,PF 

51  P3 

10=10+5 

3"’03 

’’  ITFC’L.':;  0HT",7oy)  ic,  ( A.5HC  IPH,  0)  ,v!  = l , 

330  3 

10=10+5 

O'^/l  3 

”i  ITF.C"L.3;  OUT", 733)10, n 

3^33 

I in=io 

I 

I 


d 


TABLE  10.1  (Cont) 
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5R6AC 

5P8A 

530A 

53  2 A 

53^1/1 

536/1 

5365 

5366 
53  R /I 
53R5 
540/1 
542/! 
5444 
544  5 
5446 
5448 
5464 
5484 
5504 
5524 
5544 
5564 
5584 
5604C 
5624 
5644 
5664 
5684C 
5704 
5724 
57 '14 
5764 
5784 
5804 
5824 
5844C 
5864C 
5884C 
5904 
5924 


- - - LSn  SUMMARY 

IF(N.LE.0)G0  TO  152 

DO  151  1=1, M 

T1 ( 1 )=T1 ( 1 )+FI (I ) 

T1(2)=T1(2)+FIT(I) 

T1(3)=T1(3)+FLS0<I) 

TINC  n=TlW(l  )+FINCI  ) 

151  T1M(2)=T1N(2)+FITN(I  ) 

152  T0TFI=TK1)+T1(2) 

T0TFIN=T1NK  1 )+TlN(2> 

PRINT  810,(NAMF<IPH,J), J=1,3),T1 ( 1 > ,T 1 (2 ) ,T0TFI , 

A T1 <3>,AM,T0FF,EMT 

810  FORMATC 1X,3A4,F10.0,F6.0,FR .0, 1X,4F8  .0) 

IF(NF0.NE.2)G0  TO  220 

PRINT  81 1,T1N( 1 ),T1N(2),T0TFIN 

811  F0RMAT(4X,"NF0*S",4X,F10.0,F6.0,F8.0) 

GO  TO  220 

155  IF(-12.NE.NY)G0  TO  180 

IF(N.LE.O)  GO  TO  158;  DO  157  1=1, N 
T1  ( I )=BF( I 5/1000. 

157  T2(I 5=SFH( IPH,1 5+SOUT/lOOO. 

158  PRINT  812,(NAME<IPH,J5,J=1,3),IACT(1),ACN0C1), 

AIAFT( 1 ),T1 < 1 5, T2( 1 5, AMO (I PH, 1 5 

A ,AI ( 1 5,AIT( 1 5 
IF(N-1 5 175, 175, 160 
160  DO  170  I=2,N 

170  PRINT  813,IACTCI),ACN0<I),IAFT<I),T1(I5,T2CI5,AM0(IPH,I5 
AAI Cl ),AIT( I), ’REPLACE  3 DY  N IN  IF  TEST  IN  NEXT  LINE 
175  IFCK.LE.35GO  TO  220 
N=N+1 

DO  177  I=N,M 

177  PRINT  814,AI(I 5,AIT(I 5 

812  FORMAT! 1X,3A4,4X,A4,F6. 1 ,2X,A4,2X,2F7. 1 ,2X,2F7. 1 5 

813  FORMAT (17X,A4,F6.1,2X,2F7.1,2X,2F7.1 5 

814  F0RMATC51X,2F7 . 1 5 

P.ETYPE  THE  COMMENT  LINES  WITHOUT  THE  C TO  GET 
ACADEMIC  INSTRUCTOR  DATA  PRINTED.  ALSO  SEE 
LINES  1275-1279  OF  LSR3. 

GO  TO  220 

180  IFCNY.EC.05G0  TO  220 
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d.  Subroutine  GENLSR  (Cont) 


59A/1  Pi'IL'T  70f! 

50fi/|  pniNT  703,(MAME(IPH^  J),  J=W3) 

59PA  Pi:  I NT  7n/i,SI 

r.no^!  PRINT  705, SORT 

60g/>  PRINT  706,  SL 

6099  PRINT  707, AM 

609^9  PRINT  70R,T0FF 

60R/1  PRINT  709, FNT 

6109  IF(N)gOO,gOO, 190 

6109  190  PRINT  7 1 0 , ( I ACT ( I ) , I = 1 , N) 

6199  PRINT  71 1 , (ACN0( I ), I =1 ,N) 

6169  PRINT  71P,(IAFT(I),I=1,N) 

61R9  PRINT  71 3, (BFCI ), I =1 ,N) 

6009  PRINT  719,(FI(I),I=1,N) 

6PP9  PRINT  715,(FIT(I),I=1,N) 

6'^99  PRINT  7P1  , (FL50(  I ) , I =1  ,N) 

6P69  PRINT  716,(FK(I ),I=1,N) 

6pr<9  pnn  ifcm)?ir, 018,010 

6399  Pin  PRINT  717,(IAIN(n,I=l,M) 

6309  PRINT  718, (Aid), 1=1, N) 

6399  PRINT  7 1 5, (AITC I ) , I =1 ,M) 

6369  018  Pi  I NT  790 

6389  000  RFT”:-'!'’ 

6999  799  FOHMATC  1' ',  3A.9  , F 1 0 .0 , 9/ , A9  , F6 .9 , 3P,  A9  , F 1 9 .3,F6.0,F7  .9) 

6909  791  F0RMAT(09'',A9,F6.9,3X,A9,F19.3) 

6999  790  FORMAT (//) 

,696/1  793  F01MATC16H  NANF  OF  PHA.5F:  ,3A9) 

6989  799  F0RMAT(19H  STNPFNT  It-’PnT,F6.0) 

6599  795  F0R,MAT(15H  STUnF.NT  0nTPnT,F6.0) 

66O/1  796  FORMATCRIH  9\ji'ragf  STUDENT  L0AD,F7.1) 

6599  707  F0RNAT(09H  ADMI  M STRAT I VF  OFFI  CE;.  S , F6 .0  ) 

6569  798  F01'!MAT(15H  TOTAL  OFFI  CEK5 , F6 .0  ) 

6589  799  F0nKAT(15H  TOTAL  FNLI STFD, F6 .0 ) 

6699  719  F0PMA.T(15H  .AIRCRAFT  TYPES  , 7X,  3 ( 1 , 69 , 9X  ) ) 

66^9  711  F0i'MAT(16H  NUMR-ER  RiEOUI  HKD,  F 1 1 . 9 , 0F9 . 9 ) 

6699  710  F0''?;AT(  1 IH  FUFL  TYi’ES  , 1 OX  , A9 , 9X,  A9 , 5”  , A9  ) 

6669  713  F9i'"at(17P  99LT,0N;;  CON.'  iiMEn,  O'*',  3F9 . 3 ) 

6689  719  F0d-'AT(19H  FT.IGHT  I NSTI  PJCTOi  S , F8 . 0 , OFR  .9  ) 

6799  715  FOi:t'AT(  15U  ’■'NDER  Ti.  A I NI  ^ 0,  F 1 0 . 9 , 0F9 . 9 ) 

67^9  716  FO:  i'9T(  17!'  EM.I.',TKD  ;.IIPP  OFT  , F 1 9 . 9 , 0F9 . 9 ) 

6799  717  FOi'MATtOSH  ACADFtilC  I N.'.TMiCT  I ON  , A9 , 0 ( 5:’ , 69  ) ) 

6769  718  F0RMAT('"1H  ACADEI'.IC  I t’STi-UOTOl.S,  F6 .9 , 0F9 .9  ) 

6789  719  FO;  ;>'AT  ( I 9 , 1 N , 3 99  , I 3 ) 

6!’0/'  7'^n  FO’  MAT  ( I 9 , 1 M , 5F  1 3 . 6 > 

6809  7^1  F0HMAT(17>'  I.SO  . F' li  IRFME^Rl'S  , F 1 9 . 9 , "^89  .9  ) 

6899  700  FORMATt  19,  1",6A.9  ) 

6869  703  FO;  MAT(I9, 1V,3F13.6) 

6889  K^'D 
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TABLE  10.1  (Cont) 
e.  Subroutine  PRECONST 


6903 

6913 

6923 

6933 

696  3 

6953 

6963 

6973 

6933 

6993 

7003 

7013 

7023C 

- - 

7033 

70A3 

5 

7053 

10 

7063 

7065 

7073 

7033 

7093 

20 

7103 

7113 

22 

7123 

7133 

71A3 

7153 

25 

7163 

30 

7133C 

7193 

40 

7203 

7213 

7223 

7233 

200 

7243 

SUBROUTINE  PRECONST 
COMMON  IYR> ISUTCHt 10) 

COMMON  NAME(S5,3),NPLA(S5,3),NFUEL(25* 3)>NACDC25>3)*ATP(R5)> 
AVJK(25),T0D(25)#NAC(25),NAD(25),V»:(25^3),GAS(25*3)^AU(25>3), 
AFU(25,3),SFH(25,3)^FIH(25*3),FTR(25*3),FS0C25>3)^AM0C25,3), 
SASH(25,3)*AIHC25>3),AITR(25,3) 

COMMON  FUN(25,3),FIHN(25#3),FTRN(25j 3) 

COMMON  ICOMMA,  IBLANK,NO>NYES»NY*NPH,  lER^LEVLSF,  IPH,  17PY, 
&AFD,KILL,IID,F1D,KILLS(25)>SINP(25)^S0(25) 

COMMON  I ACT(3),IAFT(3), IAIN(3)/BF(3),FIT(3)»FI  t3), 
AFLS0(3),EM(3)#AIT(3),ACN0(3),AI (3) 

COMMON  FITN(3),FIN(3) 

SIMPLE  VERSION  NO  ATTRITON  RATE  USED 

PRINT  710 

PRINT  720 

INPUT, IPH,F 

IF( IPH.EO .0)G0  TO  200 

IF(F.LE.n,)GO  TO  30 

IF(  (IPH.GE. 1 ) .AND.(IPH.LE.NPH)  )G0T020 

PRINT  700;G0  to  10 

PRINT  725, (NAMEf IPH, J), J=1 ,3) 

PRINT  730 

INPUT, I OP,V 

IF( I OP.EO .0)G0  TO  5 

IF(  (I0P.GE.1).AND.(I0P.LE.6)  )G0  TO  25 
GO  TO  30 
IF(V)30,30,A0 
PRINT  700;  GO  TO  22 

CALL  C0NST(I0P,V7,HR,F,C) 

PRINT  750,S0(IPH),ACN0(  1 ),HR,C,FIC  1),F.M<  1 ) 

PRINT  760 
GO  TO  22 
ISUTCH(A)=1 
CHAIN”XLSH2*” 
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TABLE  10.1  (Cont) 
e.  Subroutine  PRECONST  (Cont) 


7P53C 

7Pri3 

7P73 

7Pr<3 

7P93 

7303 

73  I 3 

73  I 5 

73  IP 

73P3 

7333 

733  5 

73/13 

7353 
7363 
7373 
73P3 
73P5 
7387 
730  3 
7 -'10  3 


70n  FOHMATC  IMVALin  INF'IT  - P.FTYPF") 

7in  F0rFATC//5Xj’’SIMPLF  CONSTHAIMT  CALCULATI  Ot-T."// 

A"  THF  COFSTi’AIFT  OFTIOFS  AFE:*V 

A"  1 ST^DE^T  OtlTPm"’/"  2 MO.  OF  AIiCr.AFT"/ 

A’*  3 FLIGHT  H!  S (IM  THOnSAFDS)"/ 

A”  A C05TCI\  THOrPSAMDS)  FOP  FLYIMG"/ 

A’*  5 FLIGHT  I FSTR'lCTOHS"  / 

A"  6 EFLIST.  MAIMT.CM.O.  X MUMP.  AIPCPAFT)"// 

A"  ELTEP  0,0  FOR  NO  FORTHEP  COMSTKAIKTS  OP  CALC'ilATI  OFS” ///) 
720  FORMATI”  enter  PHASE  NO.  TO  BE  CONSTl-AINEP  AND"/ 

A"  COST  PER  FLIGHT  HOUR  ") 

725  FOiR-lATC"  PHASE;  ",3AA//) 

730  FORMATC"  ENTER  CONSTRAINT  OPTION  AND  VALUE C X, XXX .)" ) 

750  F0::MAT("  studs  out  ",F10.2/"  A/C  PEOED  ",F10.2/ 

A"  FLT.  HRS.  ",F10.2,"  XIOOO"/ 

A"  FLT.  COST  ",F10.2,"  XIOOO"/ 

A"  FLT.IN5TR  ",F10.2/ 

A"  ENL.NAINT  ",F10.2//) 

760  FORMATC"  ANOTHEi'.  CONSTRAINT  OPTION  AND  VALUE") 

30  0 I’ETrn  NIEND 
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TABLE  10.1  (Cont) 
f.  Subroutine  CONST 


7A13 

y/i  2 3 

7A33 

7AA3 

7^' 5 3 

7A63 

7 A 7 3 

7AR3 

7A93 

7503 

7513 

7523 

7533C 

75AOC- 

- 

75A3 

7553 

7553 

7573C 

- - 

75G3 

100 

7593 

105 

7603 

7613 

110 

7623 

7633 

76/!  3 

76  53 

7663 

7673 

115 

76f<3 

7695 

76G7 

7693 

7703C 

- - 

7713 

200 

7723 

7733 

77A3C 

- - 

7763 

30A 

7763 

7773 

7775C 

- - 

7776 

350 

7777 

5 1 IDR  OUT  I NE  C ONS  T Cl  OP  , V,  HR  , F , C ) 

COK?^ON  IY!:>IS’.’TCHC  10) 

COMMON  NAMECR5>3),NPLA(25^  3)>NFUEL<?5,3)*  NACDCP.5#  3)  ,ATP(R5) 
^P;K(25),T0DC25)^NACC25)>NADC25)*Vn'(25>3)»GAS(25,3),AU(2  5,3)> 
AFUC25,3)^SFHC25>3),FIH(25,3),FTR(25>3)*FS0C25#3),AM0(25,3), 
".ASHC25,3),AIH(25>  3),AITP(25,3) 

COMMON  FUN(25,3)>FIHNC25#3),FTRN(25,3) 

C OMMON  I C OMMA  # I BLANK,  NO , NYES  , NY  , NPH  , I ER  , LEVLSr.  , I PH  , '.7PY , 
&AFD,KILL,IID,FID,KILLSC25),SINPC25),S0(25) 

COMMON  IACTC3),IAFTC3),IAINC3),BF(3),FITC3),FI (3), 
^:FLSOC3),EM(3),AITC3),ACNO(3),AI  (3) 

COMMON  FITNC3),F1N(3) 

- ONE  AIRCRAFT  TYPE  ONLY 
1=1 

IFCNACC IPH) .EC .0)G0  TO  500 

GO  TOC  1 nn,  200, 300,350, /inn,A/4n>,  I OP 

STUDENTS  OUTPUT  GIVEN 

SOUT=V 

SOC IPH)=SOUT 

ACNOCI  )=SOUT*SFHCIPH,I)/CAUCIPH,  I ) * ''R'C  I PH,  I )*AFD) 

FI  C I )=SOUT*FIHC  IPH,  I )/CFUC  IPH,  I l + l'A/C  IPH,  I )+AFD) 

FITC  I )=FI  C I ) ♦FTP. C IPH,  I ) /TOD C IPH) 

FINCI)=0.  ; FITNCI)=0. 

IFCFUNC!PH,I).EO.O.)GO  TO  115 

F I M C I ) = S,  OUT  * F I HN  C I PH  , I ) / C FUN  C I PH  , I ) ♦ If/  C I PH  , I ) ♦ A FD  ) 

FITNC  I )=FIMC  I ):!=FT1;NCIPH,  I )/TODC  IPH) 

FI  Cl )=FI C I )+FITC I )+FINCI )+FITNCI  ) 

HR=SFHCIPH, I )*SOUT/inOO. 

C=F+HR 

EMC  I )=AMOC IPH, I )*ACNOC I ) 

■•ETUPM 

.-^Ii  ClSAFT  GIVEN 
ACNOC I )=V 

SOUT=ACNOC  I )^AU(  IPH,  I ) + '.'.’>:C  IPH,  I )*AFD/SFHC  IPH,  I ) 

GO  TO  105 

- FLT  HOURS  IN  THOUSANDS  GIVEN 

n;-  rrU 

S OU 1 =H ! ♦ 1 0 0 0 . /S  FH  C I P H , I ) 

GO  TO  105 

- COST  FOR  FLYING  GU'EN 
c=v  ; u=C/F 

GO  TO  300 


136 


TABLE  10.1  (Cont) 
f.  Subroutine  CONST  (Cont) 


77P3C 

- - 

TOTAL  in.OTLUCTOilS  GIVEN 

7793 

^lOO 

FKI  )=V 

7PD3 

y=FIH(IPH>I  I >*AFD) 

7R13 

x=y*(i  .+FTn<iPH#n/TOD(iPH)) 

7P1  5 

Y=n. 

7R23 

IF(FTJNCIPH#I  ) .EO.O)GO  TO  410 

7fi33 

Y=FIHN(IPH,I  )/CFUNCIPH>I  )*l';X(IPH,n*AFD) 

7P^»3 

Y=Y* ( 1 . +FTRN( I PH, I ) /TOD( I PH ) ) 

7P53 

410 

SOUT=V/(X+Y) 

7863 

GO  TO  105 

7865C 

- - 

ENLISTED  NiAINT. 

7866 

440 

ACNOC I ) =V/AMO( IPH, I ) 

7867 

V=ACNO(I ) 

7868 

GO  TO  200 

7873C 

- - 

NO  AIRCRAFT 

788  3 

800 

S0(  1010=0.  ; ACN0(I)=0. 

7893 

FI(I)=0.  ; HP=0. 

7903 

PR I NT, "NO  FLYING  IN  THIS  PHASE" 

7913 

RETUI’NIEND 
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XI.  PROGRAM  LSR4 


11.1  The  listing  of  LSR4  appears  in  Table  11.1 . All  changes  that  have  been 
made  in  this  program  are  found  on  line  numbers  that  end  in  5.  The  changes 
are: 

• Include  space  in  the  common  area  of  storage  for 
NFO  planning  factors  (e.g.,  line  165  array  SP3 
(25,9)). 

• Access  the  proper  data  file  depending  on  ISWTCH(5). 

Note  that  line  105  is  modified  to  reduce  the  dimen- 
sion of  ISWTCH  for  consistency  with  the  other  LSR 
programs . 

• At  line  355  , additional  information  is  written  on  the 
RUNWAY  file. 

• Line  435  now  assures  that  blanks  will  be  printed  on 
the  RUNWAY  file  (at  line  9 05)  for  the  undefined  air- 
craft types  in  a phase. 

• Line  905  now  wnrites  all  aircraft  types  or  blanks  on 
the  RUNWAY  data  file. 

• Lines  1446  to  1052  permit  the  user  to  skip  the  run- 
way and  airspace  printout. 

• Spelling  errors  have  been  corrected  in  the  format 
statements  (lines  1344  to  1484). 

• The  error  message  in  line  2325  has  been  changed 
to  include  the  name  of  the  data  file. 
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PRECSDINO  PASS  BLAMC-NOT  flUOD 


TABLE  11.1 

PROGRAM  LSR4  LISTING 


lOS 

IRA 

lAA 

165 

IRA 

Pn/i 

RRA 

?AA 

R6A 

P65 

R75C 

PR  5 

P95 

305 

315 

3P5 

335 

3A5 

355 

3RA 

AOA 

AP/J 

A3  5 

AAA 

A6A 

ARA 

50/: 

5PA 

5AA 

56  A 

5RA 

60  5 

6PA 

6AA 

66/1 

6RA 

70A 

7P^i 

7AA 

76  A 

7RA 

ROA 

RP5 

RAA 

RA5 


COMMON  lYR^ ISVTCH( 10) 

COMMON  NAME(P5^ 3),NPLA(P5,3),I0PR(P5,3),SAS(25^3),0LF(25>3), 
ANACC25)>RUNPC25>3)>TARG(25>3),VK(3> 12) ,DH( 12), 
ftSPl C5P),SPP(25,27),5P3C25>9) 

COMt'lON  ICOMMA,  IPLANK,NO,NYES,NY,NPH,  IER,LEVLSR,  IPH,  Iv’PY, 
^AFp,KILL,Iin,Fin,KILl.SCP5),SI  (P5),S0(P5) 

COMMON  NAMEP(3),IAFT(3),SPSC3),SL(3),TT(3) ,TL(  3), 

A AS ( 3 ) , ATAG ( 3 ) , T AGT  C 3 ) , PMR ( 3 ) , TAR ( 3 ) , T OT ( 3 ) , DT, NAC C 
A,DTO 

ALPHA  NPLAjIAFT 
FILENAME  RUN 

IF(ISUTCH(5)  .EO.l  ) RUN="RtJNDAT” 

IF(I5HTCH(5)  .EO.P)  RUN="NFORUNDA” 

OPFNFILE  RUN 
REMIND  RUN 
OPFNFILE  "RUNVAY'’ 

REMIND  "RUNMAY" 

MR I TE ( "R I INUA Y" , 70  7 ) NPH , I S OTCH ( 5 ) , DA  T C X ) 

IL=1005 
DO  10  I=1,NPH 
DO  10  J=l,3 

IFCNACCI ) .LT.J)NPLA<I, J)=" 
lOPRfl, J)=0 
SASCI, J)=0.0 
OLF(I> J)=0.0 
PUNT5(l,  j)=o.n 
10  TARGCI, J)=0.0 
DO  115  I=1,NPH 
IPH  = I 

IF(NAC( I ) ) 100, 100,20 
20  CALL  INPRITY(RUN) 

DO  AO  J=l,3 

IF(NAMEP( J)-NAMF(I, J))30,A0,30 
30  PRIMT  700,NAMEP, (NAME(I,K),K=1,3) 

STOP 

AO  CONTINUE 

IF(NAC(I )-NACC)50,60,50 
50  PRINT  701,NACC,NAC(I),NAMEP 
STOP 

60  CONTINUE 

DO  RO  J=1,NACC 

IFCIAFTt J) .EO.NPLACI, J))GO  TO  RO 
70  PRINT  70P,NAMEP,IAFT( J),NPLA(I, J) 

STOP 
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TABLE  11.1  (Cont) 


Fn  CALL  f5F.^’I  vrY 

oo'\  1 nn  ITFC":.nN'.'AY'%7nP: ) IL,  CNPLACI  , J)  > J=!  ^ 3) 

0-^/1  TL  = II.  + 5 

'•A/|  ITE("l.nM'.;AY",7n9)  II.,  (I.nMPC  I ,.T)  , J=1 , 7 > 

"A/i  IL  = IL  + 5 

ITFC'HnM'AY",  709)IL,  (.SAC(  I , J)  , , 3 ) 

inn/|  IL=IL+5 

'.7  ITFC'i'.rjLi’/AY",  709)  I L,  (OLF(  I , J),  J=1 ,3) 

10/'!  119  IL=I!.+  9 

in/  .'-c 

10/' 7 PRirOT  300 

in/.3  117  INPOT  310, OT 

10A9  IF(  (YY.FC  .^’0)  .OL  .CNY.K9  .K'YK.«)  ) 00  TO  Ilf’ 

1090  Pi  ■ I KT,"  INVALID  liEPLY  - liPTYPP." 

1091  GO  TO  117 

109^  113  IFfL'Y.En  .M0)00  TO  POn 

mo/i  PPIFT  703 

10f</!  no  POO  I=1,NPH 

110/1  IFtMACC  I ) .T.F.O)00  TO  POO 

IIP/'  P.  IPT  70/1,  (PAt-'FC  I , 0)  , J=1 , 3)  ,FPLA(  I , 1 ) ,Tt)KP(  ! , 1 ) , ; ( I , 1 ) , 

11/'/'  OLF(  I , 1 ),TAI.O(  I , 1 ) 

1 1 0/1  IFfWACC  I >-l  >POO,  '■‘no,  1 10 

ir:/|  no  K=tvAC(I) 

1^-0/'  no  I'^'o  .irto,'" 

IP"’’/!  IPO  P,  li.T  709,iVPLA  f I ,.J)  ,PtP’P(  I ,.n  ,.A.‘- ( I ,0)  , ILi- C 1 ,0)  , V"  0(1, .n 
IP/I/I  •■:.INT  70  0 

r^O/!  POO  CONTIFPF 


IP  3 /I 
130/'C 
1 10  9 
130  6 
1 3 P /' 


clo;;ffilf.  "> urit^Y' 

OLOSFFI LF  POL 
I FT  309 

CH.''IF  "i'A;  TP*" 


n/i.'i  700  FO.F/'T<”  : rofOY  rp/>::'='  :?A:n-’  ",3.''/i,"  nor  ■,  •i''  . 

136/!  ".F.  ; AFF  "3A/I/"  ,l'''  i;;F  A):n  iFF”'"> 

133/'  701  FO  t'AT("  i nMOOV  AI!'C''AFT  TYi  F.'-  OF", 13,"  nO»-'3  ?.0i  •'''p-i'"/ 

!/'0/t  O’*  PHA.3F  TYPF3  OK", 13,"  FOi  Pl’O.'F:  "lOA/"  V ' I M 

lO'^/i  70'’  FO'.MATC  FO..  PHAf!'  ",3A./',"  61  C AFT  'A-T.-.  ".,i  ),ir  fAif!" 
l/i/i/i  ‘’PHAP-K  AIFOI  AFT  FAFF'-  " , A/' , 1 U , , A/; /"  F’n  ."I-  6‘I'  I' 


l'i6/'  703  FOl'MATC //1 3:',"A/C  KFFKCTIV'F  AI,..FACr  TAiO;”,".-' 

l/|R/i  0,"  Ti  AR’IFO  PHAP.F  TVFF  1 "'••■.'AY.'-  " A T' ' r I ■ i 'H.F 

190/1  70/|  FO'  t-(AT(  r',3A/i,/iy,A/|,^3.:;,Ki  1 .-•',F3.'’,n3.3) 

19P/1  709  FOI  FAT(  17'-,F3.3,F1  1 .3,PF3.3) 

19/1/1  706  FOi.MATd") 

1969  707  F0ir/AT(9H10OO  , I 3 , 9;: , A3  ) 

191''^  70R  KOFMATf  1 /I  , 1 ”,  3 A/I  , ) 

160/1  700  1- Oi  i:AT(  I/|,  1”,3F1  3 .6) 

1609  300  FO:  FAT(”  o,  I riF'.'.’AY  AFP  AIL9F.ACI''  FACTOi.'  r.'.F)") 

1606  309  FORMAT (//) 

1607  310  FOliM;AT(Al) 

16P/I  FFP 
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TABLE  11.1  (Cont) 
a . Subroutine  INPRWY 


ir./:5  SUPHOUTINF  I NPi.'.r/ CLUN  ) 

COMMON  S^'ITCHt  1 1 ) 

1 AP/>  C OMNO^’  NAMK ( P 5 , 3 ) , NPLA ( P 5 , 3 ) > I OPP:  ( P 5 , 3 ) > A O ( P 5 > 3 ) , OLF(  P 5,  3 > , 

170/!  .'■<MACCP5),i  nNPCP5,3),TAPG(P5^3),VrX(3,  IP)  ,nH(  IP), 

17‘^5  <l-5Pl  (5P),.‘JPPrP5,P7),S?3(P5,9) 

17/'/!  C OMMON  I C OMKA  , I BLA^’K,  NO , MYES  , NY  , NPH  , I FR  , LF  VLSP. , I PH , ’ ’PY, 

1 7A/I  .'■.AFD,KI  LL,  1 1 D,  FI  D,KI  LLS(  P5  ) , S I CPS  ) , .3  0(  P5  ) 

1 73/1  C OHMON  NAMFP  ( 3 ) , I AFT  ( 3 ) , SPS  ( 3 ) , SL C 3 ) , TT  C 3 ) , TLC  3 ) , 

1 on/i  n.AS  C 3 ) , ATAGC  3 ) , TAGT  C 3 ) ,PMR  C 3 ) , TARO  ) ,TOTC  3 ) , DT,  NACC 

If' PA  A^PTO 

IH/i/!  FILFNAMF  FUN 

ICASC 

l^R/i  PFADCPIIN,  TOOL, NACC, NAMFP,  lAFT 

lOOA  IFCNACC) 10, 10,P0 

19P/>  10  PRINT  701,i:NN 

in/i/i  .STOP 

106/!  PO  rEADCHnN,70P)L,CnH(  J),  J=l,6) 

190/1  i.FAD(rUN,70P)L,CnH(  J),  J = 7,  IP) 

POn/|  P.FADCrnN,70P)L,PT,DT0 

onp/i  no  30  1 = 1,  NACC 

on/1  A READ  ( i UN,  TOP  )L,  C • ( I , J)  , J=  1 , 6 ) 

on6A  30  ;,EAnCi'nN,70P)L,  C'C’C  1 , J),  J=7,  IP) 

POFA  P.EAD(RnN,70P)L,r.PS 

olOA  READ ( RON, TOP )L,SL 

oiPA  P'FADC  :nN,70P)L,TT 

oiAA  r;FADCnUN,70P)L,TL 

p 1 6/1  :;fad(  i-'iiN,  TOP ) l,  a.s 

01  FA  ovAIKi'UN,  TOP  )L,ATAG 

oooA  ■ RFA.ncnUN,  70P)L,TAGT 

OPPA  ':FADC!-r)N,  TOOL, PM!; 

'^''/'A  P.FADCrnN,  TOP  )L, TAP. 

P'^6A  t'FAnC'H)N,  TOOL,  TOT 

ppFA  AO  i;FTn:.'N 

030A  TOO  F0::MATCPIA,6AA) 

P3P5  701  FO.  NATC"  DATA  FILE:  ",AF,"  IS  INCOMPLETE-  UPDATE  AND  i'ERUN") 
P3/'A  TOP  FORMOTCV) 

'->'7  6/!  F-D 
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;i 

1 

!j 

TABLE  11.1  (Cont) 

b.  Subroutine  GENRWY 

SOni'OliTI  I'.’E  GImvL'  A' 

C Of 'MON  SVITCHC  1 1 ) 

C OMt-i 0^'  r/A MR  C 3 5 ^ 3 5 , M >L A ( 3 !S  > 3 ) , I Or  i ( ^ 5 , 3 ) , 5S.A  3 ( 3 5 > 3 ) , OL I-’  (35^3)^ 

'Vi/'/i 

f ^ AC  ( 3 5 i , PIJNP  ( 3 5 , 3 ) , T Ai , 0 ( 3 5 , 3 ) , W'  ( 3 , 1 3 ) , OH  ( 1 3 ) > 

"SPl (53),SP2(35^07),sP3(35>9) 

C 0^:t/0^’  I C OMMA,  I PLAMi-G  MO,  L’YES  , MY  , MPH,  I KP  , LF 'T,:;. . , I PH,  '.’PY, 

psn/i 

AAFn,KILL, I in,Fin,KILL5(35) ,51 (355,50(35) 

353/1 

C OMMOt’  MAMI^P  ( 3 ) , I AFT  ( 3 ) , S?3,  ( 3 ) , 5L  ( 3 > , TT  ( 3 ) , TL  ( 3 ) , 

3'i/|/| 

A A5  ( 3 ) , ATAC  { 3 ) , TACT  (35,  PMP  ( 3 5 , TAP  ( 3 5 , TOT  ( 3 5 , DT,  MACC 

356/1 

A,nTO 

35i  Vi 

DO  300  1=1, MACC 

3/"'0/i 

TIKK=0 .0 

363/1 

DO  10  J= 1,1 3 

36/|/| 

10  TIMF=TrMF+(nH(  J5-SL(  I 5 5 * Vr/l  ( I , J5 

366/1 

T I MF  =T  I 'MFH:  (1.0  -DT  5/13.0 

36^1/1 

TLC=TT( I 5+TL( I 5 

37n/| 

5MLC=TIMF/TLC 

373 /.I 

CYC=TT(I5  ; 

3 7/4 /I 

IF(CYC-TL( I 5 530,30,30 

p Y /» 

30  CYC=TL(I5 

oy^vi 

30  C=TIf'i''/('^  .0  'r  OI  .C  15) 

33  0/1 

J=C  H 

Of'  0 /, 

C=J 

Of»/i  /| 

5MTL=C'T;  L(  I 5 /CYC 

^r<o/| 

r =TIi'F-3 .0':<C*5L(  I 5 

3 or-' /I 

K = .-.L(  I 5 /CYC 

390/1 

IFC.  -;-l.(  I 5 5/10,50,50 

393/1 

/lO  F=r/CYC 

^0/1  /I 

50  5'/TL  = , MTL+K  ' 

'’9  6/1 

1 F ( 5 ML.C  - =• ' "i'  1. 5 6 0 , 6 0 , 7 0 

60  5"A-'=SMTL  i 

300/' 

I OP  ( IPH, 15=3 

30'^ /I 

AI  ;=P.L(  I 5 /CYC 

30 /'/i 

no  TO  CO  1 

306/1 

70  5-.-A-'  = SMLC  i 

303/! 

I OPH( IPH, I 5 = 1 ! 

310/' 

ATi'  = ;H.(T  5/TLC 
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TABLE  11.1  (Cont) 
b.  Subroutine  GENRWY  (Cont) 


lur/! 

30 

F.T  =0  . 

IFC0in.GT.0S(I))G0  TO  ?00 

,1 1 A/I 

35 

.3  A3  ( I PH  , I ) = A I A /A  3 C I) 

31  A/| 

I!'(ATAG(  I )>  100,  100,90 

on 

TOC  =TI' 1 .-PTO)  /TAGTC  I ) 

33?/’ 

TGi'=3  0(  IPH)=CATAG(  I ) /AFD 

3C'/t  /| 

OFP  = ( 1 .O-PMiK  I ) )’>-TGP. 

3 '’A /I 

OLF(  I PH,  I >=OF.  /TGC 

3?P/| 

FT  = (TG;- -0F3)*(  1 .0-DT0)/TGC 

330/1 

100 

nS=30(IPH)+3P5(I )/AFD 

33?/i 

IHINPC  IPH,  I )=FT  + rS/SMAX 

33/!/! 

IF(TAi.(I  ) )?9n,p90,  1 10 

33A/I 

1 10 

GiTr'’=?0(  IPH)*TAP(  I )/AFD 

333/1 

TArT=(TIME-5L( I ))/T0T(I ) 

3/10/: 

TA3G(  IPH,  I )=G!;H/TAPT 

3/!?/! 

GO  TO  300 

3/!/|/1 

?00 

IFdOPi'.CIPH,!  ) .E'^.?)GO  TO  70 

3/1  A/! 

C=TIME/.'3L(  I ) 

3/:  3/1 

J=C 

330/1 

n=j 

33?/| 

C=C-D 

35/!/! 

T=G/TLC 

35  A/! 

IF(T-AS( I ) )2?0,??0,P10 

353/1 

010 

T=A.3(  I ) 

3AO/1 

??0 

f,r-vix=n*A;:ci  >+t 

3 A? /I 

AI  ;-'=A3(  I ) 

3A/!/> 

I OPj  .C  IPH,  I )=3 

3AA/I 

GO  TO  35 

3A"'/) 

?90 

3A.3(  IPH,  I )=SAS(  IPH,  I ) if-HUNP ( I PH,  I ) 

370/1 

3on 

GO'.'TIHOF 

37?/' 

r:FTn.',M 

37/!/' 

END 
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XII.  PROGRAM  PART2 


12.1  The  listing  of  program  PART2  appears  in  Table  12.1  . The  only  change 
is  that  line  1522  is  new.  It  was  inserted  and  in  this  case  the  entire  program 
was  resequenced.  No  other  changes  were  made. 
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TABLE  12.1 

PROGRAM  PART2  LISTING 


999C- 
J002 
1022 
1042 
1062 
10H2 
1 102 
1122 
1 1 42 
1 1 62 
1 182 
1202 
1222 
12  42 
1262 
1282 
1302 
1322 
1342 
1362 
1382 
1 402 
1 422 
1 442 
1462 
1 482 
1502 
1522 
1542 
1562 
1582 
1 602 
1622 
1642 
1 662 
1682 
1702 
1722 
1 742 
1762 
1782 
1802 
1822 


-PART2--M0DI FIED  FOR  IFRS  III  1-18-71 
COMMON  lYEAR,  I Sl'.’TCH(  10) 

COMMON  ACREQ(9»2  1 >«  TBASC9)*  TNAS(9), BPH(9,  25)* ASHC25,  3)* 
&ACFH<9»  1 5) , T0FF<9) * TENL< 9 ) * TSTU< 9 ) * PN ASE( 9 ) * SI < 25) * TCI V(  9 ) * 
&S0(2  5)*FUREQ(9*3)*PHPER(9*  5)  * NBUSEC 9 ) * RW(  2 5*  3*  3)» 

&I  ACTC25*  3)*  ACNOl  <25*  3)  * TOFF  1 (2 5)  * EM T 1 ( 2 5) 

COMMON  I ATYPEC  21)*  ACA<  21)*  ACB( 2 1 ) * ACCC  2 1 ) * ACDC  2 1 ) * 

&AHMC21  )*  ACM(  21  )*  ASMl  C 2 1 ) * ASM2(  2. 1 ) * A(  2 1 * 3 ) * RN  WYL ( 2 1 ) * 
&RL0AD(21 )*C0MP(21 )*  FLCSTC21 )* A0M(21 )*CNAAC(21 ) 

COMMON  NASNAM(9)*AD(9)*PF(9*3)*ELC9*3)*CIJC9)*  IBEDC9)*  PEF(9)* 
&PREC9)*  P0C9)*  PS(9)*  PIEC9)*  TS(9)*  TH(9)*  TN0FF(9) * TNENL(9) * 
ATNCI V(9)* ATCFC9)* WR(9*  2)*  TENAC(9*  6) * PERFACC 9 ) * EM  ESC  9) 

COMMON  FAC0ST(5O*6) 

COMMON  FAPWC  6) * APC  4*  3) * GWTABC 3) * FAMESSC  7*  2)*  EXCHC 1 0*  2)* 
&FAEMC8*2)*  TANKSC 15)*  TAXI  TOC  3) 

COMMON  IC0DESC  50)* IDESC  50*  3)*  RPI C 50* 9*  2) * I UN  I TSC  50) * 

&XRPI  1C  9*  10*  4)*XRPI2C3*9) 

COMMON  BRC  50* 9 ) * XBR 1 C 9*  1 0*  4) * XBR2C 3* 9 ) * DEFC  50*9)* 
&XDEF2C9)*XDEF3C2*9)*XDEF4C3*  1 5*9)*  TEXC  50*9)* 

&NCAT*  I YES*N0*  ICOM*GT0  TAL*NPH 
ALPHA  ICOM* IYES*N0* I ATYPE 
DO  1 1=1*21 
DO  1 J=l*9 
1 ACREOC J* I )=0. 

ICOM="* " 

N0="N" 

IYES="Y" 

ISWTCHC8)=0 

IFCISWTCHC 1O).EQ.O)G0  TO  20 
15  0PENFILE  "BASED*" 

REWIND  "BASED*" 

DO  18  1=1*9 

READC"BASED*"*  600)NASNAMC I ) 

READC "BASED*"*  602) LINE*  ADC  I ) 

READC "BASED*"*  602) LINE*  C PFC I * J ) * J= 1 * 3 ) * C EL C I * K ) * 8= 1 * 3 ) 

F^EADC  "BASED*"*  602)LINE*CUC  I ) * THC  I ) * TSC  I ) 

READC "BASED*"*  602)LINE*  TN0FFC I )*  TNENLC I )*  TNCI VC  I ) 

READC "BASED*"*  602)LINE*  PEEC I )*  PREC I ) * P0 C I ) * PS C I ) * PI E C I ) 

READC "BASED*"*  602)LINE*  EMESC I )* I BEDC I )*  PEKFACC I ) 

READC "BASED*"*  602)L INE* ATCFC I ) * C WRC I * J ) * J = 1 * 2) 

READC  "BASED*"*  602  )L  INE*  C TEN  AC  C I * J ) * J=  1*6) 

18  CONTINUE 

CL0SEFILF.  "BASED*" 
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TABLE  12.1  (Cont) 


1842 

0PENFILE  "ACDAT*" 

1862 

REWIND  "ACDAT*" 

1882 

D0  19  I=l»21 

1902 

READC "ACDAT*”.  600) I ATYPE(  I ) 

1922 

READC "ACDAT*". 606)LINE. ACA< I ) . ACB< I ) . ACCC I ) . ACDC I ) 

1942 

READC "ACDAT*". 606) LINE. AHMC I ). ACM< I ) . ASM  1(1). ASM2< I ) 

1962 

READC"ACDAT*".606)LINE. <A(I. J). J= 1. 3) 

1982 

READ( "ACDAT*". 606) LINE. RNWYLC I ). RL0AD< I ). C0MP( I ) 

2002 

READC "ACDAT*". 606)LINE. FLCSTC I ). A0M( I ) 

2022 

19 

READC’ACDAt*".  606)LINE.  CNAAC<  I ) 

2042 

CL0SEFILE  "ACDAT*" 

2062 

IF( ISWTCH< 10) .EQ. 0)60  T0  30 

2082 

IF( ISWTCH<6) .EO. 1 )G0  T0  195 

2102 

0PENFILE  "RETURN" 

2122 

REWIND  "RETURN" 

2142 

READC "RETURN". 60 1 ) I C0 DES. NBUSE 

2162 

READ<  "RETURN".  603)  I DES.-  I UN  I TS 

2182 

READC  "return;*.  60  4)  RPI . XRPI  1 . XRPI  2.  FAC0ST.  BPH.  CNAAC 

2202 

CL0SEFILE  "RETURN" 

2222 

IF(ISWTCH( 1O).EO.2)G0  T0  195 

2242 

G0  T0  30 

2262 

195 

0PENFILE  "RETURN  1" 

2282 

REWIND  "RETURN  1" 

2302 

READC "RETURN  1 ". 604) BPH 

2322 

READC "RETURN  1". 601 ) NBUSE 

2342 

G0  T0  30 

2362 

20 

IYEAR=1970 

2382 

ISWTCH(6)= 1 

2402 

G0  T0  15 

2422 

30 

CHAIN  "PART3*” 

2442 

600 

F0RMATC  5XA4) 

2462 

601 

F0RMATC8I8) 

2482 

602 

F0RMATCV) 

2502 

603 

F0RMATC15A4) 

2522 

604 

F0RMATC5E13.6) 

2542 

606 

F0RMATCV) 

2562 

FND 
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XIII.  PROGRAMS  PART3  AND  PRT3N 


13.1  Program  PART3  was  one  of  the  largest  programs  in  the  IFRS  model. 

When  the  new  option  to  read  a standard  phase-to-base  assignment  file  was 
added  to  the  program,  the  compiled  version  exceeded  the  allowable  core  capacity. 
The  problem  was  overcome  by  dividing  the  program  into  two  parts— PART3  and 
PRT3N. 

13.2  The  purpose  of  program  PART3  is  to; 

• Read  the  LSROUT  file. 

• Accept  the  phase-to-base  assignments. 

• Check  the  allocation  of  a phase  to  ensure  it 
has  been  completely  (100%)  assigned. 

• Transfer  control  to  program  PRT3N. 

13.3  The  purpose  of  program  PRT3N  is  to: 

• Compute  the  base  loading  data. 

• Transfer  control  to  PART3  if  the  user  wants  to 
reallocate  phases. 

• Transfer  control  to  PART4  if  the  user  wants 
additional  cost  information. 

13.4  The  dictionary  of  new  variables  is  given  in  Table  13.1  . The  programs 
are  listed  in  Tables  13.2  and  13.3.  Because  the  logic  has  been  changed,  now 
flow  charts  are  given  in  Figures  13.1  and  13.2. 

i 

I 
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CHANGES  TO  PART3 


13.5  The  changes  and  additions  to  PART3  are  as  follows: 

• The  user  has  the  option  to  accept  and  change  the 
phase-to-base  assignment  stored  on  the  data  file 
PHABA*  (changes  do  not  affect  the  data  file) . 

• The  data  file  is  validated  the  same  as  it  is  for 
terminal  input.  However,  if  there  is  an  error,  the 
data  are  not  used.  No  error  message  is  printed. 

• If  the  user  wants  to  correct  or  modify  a phase 
assignment,  data  entry  instructions  are  printed 
once,  i.e. , if  the  user  has  not  seen  the  instruc- 
tions on  this  run  (if  ISWTCH(8)^  1). 

• If  the  user  returns  to  PART3  from  PRT3N  to  reallocate 
phase,  then  the  LSROUT  file  is  not  read  again. 

PRCX3RAM  PRT3N 

13.6  Program  PRT3N  is  basically  the  last  half  of  the  old  version  of 
program  PART3.  The  changes  and  additions  are  as  follows: 

• Subroutine  MASK3  has  been  added  (lines  5983 
to  6083).  The  program  is  called  at  lines  1623 
and  3923.  This  subroutine  eliminates  the  need 
for  the  scratch  file  SCRI  in  this  program.  Es- 
sentially, the  subroutine  masks  out  the  last  3 
characters  (27  bits)  of  the  4-character  word  by 
integer  division.  Thus  the  fuel  types  are  still 
validated  and  accumulated  on  the  basis  of  the 
first  character  in  their  name. 

• In  the  old  program  PART3  there  was  an  error  in 
the  logic  of  totaling  fuel  requirements  (old  lines 
5623  to  5883).  This  has  been  corrected  (see 
lines  3903  to  4403). 

13  7 The  scratch  file  SCRl  was  used  only  by  the  old  PART3  program, 
it  is  no  longer  needed,  it  should  be  deleted  from  the  user's  library. 


Since 
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TAbl.E  13.1 


r 


NEW'  VARIABLE  DICTIONARY  FOR  PROGRAMS 
PART3  AND  PRT3N 


Location 

Variable 

Name 

Dimension 

Type 

Description 

PARTS 

NI 

1 

I 

Phase-to-base  allocation  input  mode; 
NI=0  for  terminal  input  of  initial 
assignments 

NI=1  for  reading  file  PHABA* 

NI=2  for  terminal  input  of  changes 
or  corrections 

PARTS 

lER 

1 

I 

EiTor  flag  for  terminal  input 
IER=1  for  correct  input 
IER=2  for  percent  less  than  0.0  or 
greater  than  1 . 0 
IER=3  for  bad  format 
IER=4  for  incorrect  base  code 
IFR=5  for  incorrect  phase  number 

PRT3N 

GAS NAM 

3 

A 

1 uel  type  1 (one  character) 

1=1  ,3  denotes  "f,  " "A,"  "H" 

PRT3N 

I OP 

1 

A 

Aigument  for  subroutine,  returns  to 
main  program  with  first  character 
of  fuel  name 

PRT3N 

lALPHA 

1 

A 

Argument  for  subroutine  holds  fuel 
name  for  phase  I,  type  ] instruction 

PRT3N 

MASKX 

1 

V 

Used  in  subroutine  for  integer  division 

PRT3N 

BFIC 

1 

V 

Product  of  BF1(I,IA)  and  C 

Common 

ISWTCH 

10 

1 

ISWTCU(8)  was  modified  to  the  followin-^; 

ISA'TCU(8)=0  for  reading  LSH  output 
file 

1SWTCH(8)=1  for  reallocation  of 
phases;  skip  description  of  how 
to  allocate  phases 

ISWTCH(8)=2  for  reallocation  of 
phases;  skip  reading  of  LSP 
output  file 
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999C- 

1003 

1023 

1043 

1063 

1083 

1103 

1123 

1143 

1163 

1183 

1203 

1223 

1243 

1263 

1283 

1303 

1323 

1343 

1363 

1383 

1403 

1423 

1443 

1463 

1483 

1503 

1523 

1543 

1563 

1583 

1603 

1623 

1643 

1663 

1683 

1703 

1723 

1743 

1763 

1783 

1803 

1823 


TABLE  13.2 

PRCX3RAM  PART3  LISTING 

-PART3--M0DIFIED  FOR  IFRS  III  1-18-71 
COMMON  lYEAR^ISWTCHClO) 

COMMON  ACREQ<9>21),TBASC9),TNAS<9)#BPH(9#25),ASH<25,3), 
*ACFH(9# 15)#T0FF(9),TENLC9),TSTUC9)#PNASEC9),SI (25)»TCIV(9), 
*S0(25),FUREQ(9#3)#PHPER(9,5),NBUSE(9)#RW(25>3»3)> 
*IACT(25#3)#ACN01  (25»3)#T0FFU25)#EMT1  <25> 

COMMON  IATYPEC21 ),ACA(21 ),ACBC21 )#ACC(21 )#ACD(21 ># 

*AHM(21 )#ACM(21 ),ASM1 (21 ) , ASM2 ( 2 1) , A( 2 1 # 3 ) ^ RNWYL( 2 1 ) # 
ARL0AD(21)*C0MP(21  ),FLCST(21  ),A0M(2n#CNAAC(21  ) 

COMMON  NASNAM(9),ADC9)»PF(9,3)*EL(9,3>,CU(9)#IBED(9),PEE(9)# 
*PRE(9 )#P0(9).PS(9)»PIE(9),TS(9)j  TH( 9 > # TNOFF( 9 > # TNENL( 9 > # 
*TNC1V(9),ATCF(9),WR(9#2)#TENAC(9#6)*PERFAC(9)#EMES(9) 

COMMON  FAC0ST(50*6) 

COMMON  FAPVK6)*AP(4,3),GWTAB(3)*FAMESS(7#2)#EXCH(10#2), 
«FAEM(8*2)#TANKS< 15>*TAXIT0(3) 

COMMON  IC0DES(50>#IDESC50#3)*RPI<50,9#2),IUNITS(50>* 

AXRPI 1 (9, 10#4),XRPI2(3,9) 

COMMON  BR(50»9)>XBR1 (9# 10#4),XBR2(3,9)#DEF(50,9)# 
*XDEF2(9),XDEF3<2,9>^XDEF4(3,15^9)#TEX(50>9), 

ANCAT* lYES^NO# ICOM,GTOTAL#NPH 
COMMON  00UT(25),TPCT(25)#PNASC4)*0UT1 (25.3), 

ATDAT A (9.4), ATYPE ( 20 ) . FTYPE ( 20 ) . PLREQ ( 20 ) . 
ASL(25).GAREQ(20).BCFH(25.3). 

ABFl (25.3).FUEL(25.3).NAME(25.3).NAC(25) 
A.IAFT(25.3).XBAS(4).HRSREQ(20) 

ALPHA  AA. ICOM. ICOMl , IC0M2, lYES. NO. ATYPE, FTYPE. 

ANASNAM.NAME. I ACT. I AFT. 1 OP. I ATYPE 
FILENAME  T1 

IF(ISWTCH(8) .NE.O)  GO  TO  3 

ISWTCH(8)»2 

OPENFILE  "LSROUT" 

REWIND  "LSROUT’* 

READC*LSR0UT".651  )NPH 
DO  2 I«1.NPH 

READ(*'LSR0UT”.652)(NAME(I.  J),  J=1.3).NC(I  ) 
READ("LSR0UT”.653)SI(I).S0(I ).SL(I).T0FF1 (I).EMTl(I ) 
READC'LSROUT".  629  ) ( I ACT  ( I . J)  . J«»  1 . 3 ) . ( I AFT  ( I . J1 ) . J1  = 1 . 3 ) 

READ( '‘LSROUT*’.  630  ) ( ACNOl  ( I , J)  . J=1 . 3 ) 
READ(”LSR0UT".630)(BF1(I. J).  J=1.3) 

READ( "LSROUT". 630 ) ( ASH( I , J) . 1 . 3 ) 

READ ( "LSROUT" . 630 ) ( BCFH ( I , J) , J« 1 , 3 ) 

2 CONTINUE 

CLOSEFILE  "LSROUT” 


J 
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1843  3 IF(ISWTCHaO).GT.O)  GO  TO  500 

1863  4 DO  5 1=1»25 

1883  DO  5 J*l#9 

1903  5 BPH( J#I )»0. 

1923  PRINT  725 

1943  CALL  N0YESC$7>$8) 

1963  7 IF<ISVrrCH(8).NE.l)  GO  TO  11 

1983  Nl-0 

2003  GO  TO  10 

2023  8 T1»"PHABA*" 

2043  OPENFILE  T1 

2063  REWIND  T1 

2083  NI»1 

2103  READCTU735) 

2123  READ(T1,735) 

2143  PRINT  730 

2163  9 READ(TW735>END=100)IPH,IC0M1,AA,IC0M2,PCT 

2183  GO  TO  14 

2203  10  PRINTj”TYPE  FIRST  BASE  ASSIGNMENT" 

2223  GO  TO  13 

2243  11  NI=0 

2263  12  PRINT  600 

2283  ISWTCH(8)=1 

2303  13  INPUT  601 , IPH# ICOMl ,AA. IC0M2 »PCT 

2323  14  IER=1 

2343  IF(IPH.EQ.O)  GO  TO  100 

2363  IFC(PCT.LT.O.O).OR.(PCT.GT.l .))  IER=2 

2383  IF(IC0M2.NE.IC0M)  IER=3 

2403  IF( ICOMl .NE.ICOM)  IER=3 

2423  DO  20  I«l#9 

2443  IF(AA.NE.NASNAM(I ) > GO  TO  20 

2463  K=I 

2483  GO  TO  30 

2503  20  CONTINUE 

2523  IER=4 

2543  30  IF( < IPH.LT.O) .OR.(IPH.GT.NPH) ) IER=5 

2563  IF(NI.EQ.l)  GO  TO  35 

2583  GO  TO  (80,40#50#60* 70)# lER 

2603  35  IF(IER.GT.l)  GO  TO  9 

2623  GO  TO  80 

2643  40  PRINT  605#PCT 

2663  GO  TO  13 

2683  50  PRINT  602 
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2703  GO  TO  13 

2723  60  PRINT  604 

2743  GO  TO  13 

2763  70  PRINT  608 

2783  GO  TO  13 

2803  80  BPH(K«1PH)-PCT 

2823  IF(NI.EQ.l)  GO  TO  85 

2843  PRINT  606 

2863  GO  TO  13 

2883  85  PRINT  740* IPH« AA«PCT 

2903  GO  TO  9 

2923  100  IF(NI.EQ.2)  GO  TO  138 

2943  PRINT  628 

2963  CALL  N0YES(S138*S135> 

2983  135  PRINT  627 

3003  NI>2 

3023  IF(ISVTCH(8).EQ.0>  GO  TO  12 

3043  PRINT  624 

3063  GO  TO  13 

3083  138  DO  140  I>1*25 

3103  TPCT<I)«0. 

3123  DO  140  J>1«9 

3143  140  TPCTd  )»TPCT(I  )+BPH(  J*I  ) 

3163  DO  160  I«1*NPH 

3183  IF  (TPCT(I>>. 995)150*145*145 

3203  145  IF(TPCT<I)-1. 005)160*160*147 

3223  147  K-I 

3243  GO  TO  165 

3263  150  K-I 

3283  GO  TO  170 

3303  160  CONTINUE 

3323  GO  TO  190 

3343  165  PRINT  625*K 

3363  DO  167  1-1*9 

3383  167  BPH(l*K)-0. 

3403  IF(ISVTCH(8).EQ.O)  GO  TO  12 

3423  GO  TO  13 

3443  170  PRINT  607*K 

3463  IF(ISVTCH(8)«EQ.O)  GO  TO  12 

3483  GO  TO  13 

3503  190  DO  198  1-1*9 

3523  TEMP-0* 

3543  DO  195  J-l*25 

3563  195  TEMP-TEMP-i-BPHd*  J) 
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3583 

3603 

3623 

3643 

3663 

3683 

3703 

3723 

3743 

3763 

3783C 

3803 

3823 

3843 

3863 

3883 

3903 

3923 

3943 

3963 

3983 

4003 

4023 

4043 

4063 

4083 

4103 

4123 

4143 

4163 

4183 

4203 

4223 

4243 

4263 

4283 

4303 

4323 

4343 

4363 

4383 

4403 

4423 

4443 


IF(TEMP-.01 )196# 196, 197 

196  NBUSE(I).=0 
GO  TO  198 

197  NBUSE(I)=1 

198  CONTINUE 
GO  TO  520 

500  PRINT  626 

IF(ISWTCH(6) .EQ.l )ISWTCH( 10)=0 
CALL  N0YESCS4,$520) 

520  CHAIN  "PRT3N*" 


600  FORMATS*  PHASE  ALLOCATION:  ASSIGN  EACH  PHASE  AS--'V1X 

*"II,AAAA, .XX*V1X"WHERE:  II  = PHASE  <2  DIGITS);  AAAA  » BASE" 

A"  C0DE;"/7X".XX  = PERCENT  AT  BASE  (1.0=  100*)"/1X 

A"BASE  CODES:  CHAS  CORP  ELLY’Vl 3X"K1 NG  MERI  PENS"/13X 
A"SAUF  WHIT  PHAN"/"  II  = 0 TO  TERMINATE:") 

601  F0RMAT(I2,A1,A4,A1,F3.2) 

602  F0RMAT(22H  BAD  FORMAT — TRY  AGAIN) 

604  FORMATOOH  INCORRECT  BASE  CODE CORRECT) 

605  FORMATdOH  THE  VALUEl XF6 .2,  1 X45HGI VEN  FOR  PERCENT  CANNOT  EXCE 

AED  1.0 CORRECT) 

606  FORMAT("+NEXT") 

607  FORMAT < 7H  PHASE  12,"  HAS  NOT  BEEN  ASSIGNED  OR  IS"/"  ONLY" 

A"  PARTLY  ASSIGNED CORRECT") 

608  FORMATC"  NO  SUCH  PHASE CORRECT") 

624  FORMAT ("  ENTER  FIRST  CORRECTION") 

625  FORMAT("  PHSAE"  12,"  HAS  BEEN  OVER-ASSI GNED . ALL  ALLOCATIONS" 
A"  OF  THIS  PHASE"/"  ARE  ELIMINATED.  RE-ENTER  THE  COMPLETE" 

A"  ALLOCATION") 

626  FORMAT!"  KEEP  SAME  PHASE  TO  BASE  ASSI GNMENT< Y,N)") 

627  FORMAT("  *CAUTION:  IF  YOU  REASSIGN  A PHASE,  YOU  MUST"/ 

A"  ^DELETE  OR  CHANGE  THE  OLD  ASSIGNMENT."/ 

A"  *(T0  DELETE  ENTER  O.OX)"//) 

628  FORMAT!/"  ANY  CHANGES  OR  CORRECTI ONS! Y, N) " ) 

629  FORMAT (5X6A4) 

630  F0RMAT!5X3E13.6) 

725  FORMAT!"  USE  THE  STANDARD  PHASE  TO  BASE  ALLOCATI ON! Y , N)" ) 

730  FORMAT!"  STANDARD  ALLOCATI 0N"//1 X"PHASE" 1 X"BASE" 1 X"PERC ENT" ) 
735  F0RMAT!6X,I2,A1,A4,A1,F4.2) 

740  F0RMAT!3X,I2.2X,A4,4X,F4.2) 

651  F0RMAT!5XI3) 

652  FORMAT (5X3A4, 13) 

653  F0RMAT!5X5E13.6) 

END 


J 
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999C- 

1003 

1023 

1043 

1063 

1083 

1103 

1123 

1143 

1163 

1183 

1203 

1223 

1243 

1263 

1283 

1303 

1323 

1343 

1363 

1383 

1403 

1423 

1443 

1463 

1483 

1503 

1523C 

1543 

1563 

1583 

1603 

1623 

1643 

1663C 

1683 

1703 

1723 

1743 

1763 

1783 

1803 

1823 


TABLE  13.3 

PROGRAM  PRT3N  LISTING 


--PRT3N--C0NTINUATI0N  OF  PART3 --MODI  FI  ED  FOR  IFRS  III  1-18-71 
COMMON  IYEAR,ISWTCH( 10> 

COMMON  ACREQ(9,21 ),TBAS(9)»TNAS(9)*BPH(9,25)»ASH(25#3)* 
AACFH(9^ 15)>T0FF(9),TENL(9)#TSTU(9)>PNASEC9),SI < 2 5 ) ^ TC I V( 9 ) , 
*S0(25)#FUREQ(9#3>jPHPER(9^5)#NBUSE(9),RWC25,3,3)^ 
*IACT(25»3)#ACN0U25,3)>T0FF1  <25),EMT1<25) 

COMMON  IATYPEC21 ) , ACA( 2 1 ) # ACB< 2 1 )>ACCC21 )>ACD(21 ), 

AAHMC21 >,ACM(21 )>ASM1 C21 )#ASM2(21 ) # A( 2 1 , 3 ) /RNWYL( 2 1 ) * 
&RL0AD(21 >#C0MP(21 >*FLCST(21 ) > AOM( 2 1) >CNAAC ( 2 1 ) 

COMMON  NASNAM(9)>AD(9)>PF(9/3),EL(9,3)>CU(9)#IBED(9),PEE<9), 
4PRE(9)>P0(9),PS(9),PIE(9)^TSC9)#TH(9),TN0FFC9),TNENL(9), 
&TNCIV(9)> ATCF(9),WR(9*2),TENAC<9*6)>PERFAC(9)*EMES(9) 

COMMON  FAC0STC50.6) 

COMMON  FAPW(6>*AP(4,3)*GWTAB(3)#FAMESS(7,2),EXCH( 10*2 ), 
AFAEM(8*2)*TANKS( 15)*TAXIT0(3) 

COMMON  IC0DES<50>*IDES<50*3>*RPI (50*9*2 )*IUNITS( 50)* 

AXRPI 1 (9* 10*4)*XRPI2(3*9) 

COMMON  BR(50*9)*XBR1 (9* 1 0 * 4 ) *XBR2 ( 3 * 9 ) * DEF( 50* 9 ) * 
AXDEF2(9)*XDEF3(2*9)*XDEF4(3* 15*9)*TEX(50*9)* 

4NCAT* IYES*NO*ICOM*GTOTAL*NPH 
COMMON  00UT(25)*TPCT(25)*PNAS(4)*0UT1 (25*3)* 
«TDATA(9*4)*ATYPE(20)*FTYPE(20)*PLREQ(20)* 
ASL(25)*GAREQ(20)*BCFH(25*3)* 

4BF1 (25*3)*FUEL(25*3)*NAME(25*3)*NAC(25) 

4* IAFT(25*3)*XBAS(4)*HRSREQ(20) 

ALPHA  AA* ICOM* ICOMl * IC0M2* IYES*NO*ATYPE*FTYPE* 

4 NASNAM*  NAME  * I ACT  * I AFT  * I ATYPE* I OP  * GASNAM 

DIMENSION  GASNAM(3) 

DATA  GASNAM/"J"*’*A"***H’V 

MASKX=2+*27 

DO  20  1=1*3 

CALL  MASK3(GASNAM( I )*IOP*MASKX) 

20  GASNAM( I )=IOP 

DO  1000  1=1*9 
TDATA( 1 * 1 )=TNOFF( I ) 

TDATA(I*2)=TNENL(I ) 

TDATA( I*3)=TNCIV(  I ) 

1000  TDATA(I*4)=TDATA(I*1 ) +TDATA( I * 2 ) +TDATA ( I * 3 ) 

520  PRINT*’*SK1P  DETAILED  BASE  LOADING  DATA(Y*N)" 

N0DETL=0 
200  INPUT* I OP 
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IF(IOP.EQ.IYES)  GO  TO  205 

IF(IOP.EO.NO)  GO  TO  210 

PRINT, "INVALID  REPLY— TRY  AGAIN” 

GO  TO  200 

NODETL-l 

PRINT  665 

DO  400  IB>1,9 

IF(NBUSE(IB) >400,400,265 

K-0 

IF(NODETL.EQ.l )G0  TO  267 
PRINT  715,NASNAM(IB) 

DO  280  I>1,NPH 
C»BPH(IB,I> 

IF(C -.01 >280,280,270 
K=K+1 

00UT(K>»C*SL(I> 

OUTl (K, 1 > «C*T0FF1 < I > 

0UT1CK,2>»C*EMT1(I> 

OUTl <K,3>»0UT1 <K, 1 >+OUTl (K,2>+00UT(K> 

IFtNODETL.EQ.l >G0  TO  280 

PRINT  716,(NAME(I, J>, J»1,3>,00UT(K>,(0UT1(K, J>,J»1,3> 

CONTINUE 

SUM1«0. 

SUM2>0. 

SUM3«0. 

SUM4«0.0 

DO  284  I>1,K 

SUM1«SUM1+0UT1(I,1> 

SUM2  *SUM2 ♦ OUT 1 ( 1 , 2 > 

SUM4»SUM4+00UT( I > 

SUM3-SUM3+0UT 1 < 1 , 3 > 

TSTU(IB>»SUM4 

PHPERC IB, 1 > -SUMl +SUM4 

PHPER(IB,2>-SUM2 

IFCNODETL.EQ.l >G0  TO  2084 

PRINT  718,SUM4,SUM1,SUM2,SUM3 

PRINT  719,(TDATA(IB, J>, J«*l,4> 

PNAS(4>-S18.4-»^.259*(TDATACIB,4>+SUM3> 

PNAS  < 2 > -407 .9+ .0939*  C TDATAt IB, 4 > +SUM3  > 

PNASn  >-19.234>.17654<(TDATA(IB,l  >-fSUMl  > 
PNASE(IB>-PNAS(2> 

TNAS(IB>-PNAS(4> 

PNAS ( 3 > -PNAS ( 4 > -PNAS ( 1 > -PNAS ( 2 > 
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2703 
2723 
2743 
2763 
2783 
2803 
2823 
2843 
2863 
2883 
2903 
2923 
2943 
2963 
2983 
3003 
3023 
3043 
3063 
3083 
3103 
3123 
3143 
3163 
3183 
3203 
3223 
324  3 
3263 
3283 
3303 
3323 
3343 
3363 
3383 
3403 
3423 
3443 
3463 
3483 
3503 
3523 
3543 


PHPER ( I B, 3 > =PNAS ( 1 ) 

PHPERC IB>4)»PNAS(2) 

PHPER ( I B, 5 ) =PNAS  < 3 ) 

XBAS( 1 )=PNAS< 1 )+TDATA(IB,l 5+SUMl 
XBAS ( 2 ) =PNAS ( 2 > +TDATA ( I B#  2 ) +SUM2 
XBAS < 3 ) =PNAS ( 3 ) ♦TDAT A ( I B, 3 ) 

TCIV( IB)=XBAS( 3) 

T0FF( 1B)=XBASC1 ) 

TENL(IB)=XBAS(2) 

XBAS(4)=PNAS(4)+TDATA<IB#4)+SUM3 

TBAS(IB)=XBAS(4) 

IFCNODETL.EQ.l )G0  TO  2085 

PRINT  720,(PNAS<I)»  1=W4)#(XBAS(  J)*J=1*4) 
2085  K=0 
NF=1 

DO  300  1=1, NPH 
IFCNAC(I).EQ.0)G0  TO  300 
C=BPH(IB,I ) 

JL0W=1 

I F<C -.01 >300,300,285 

285  IFCNF-l >286,286,288 

286  K=K+1 

ATYPE(K>=IACT(I, 1 > 

PLREQ(K>=ACN01 (I, 1 >*C 
HRSREQtK>=BCFH(I, 1 >*C 
NF=2 

IFfNACd  >-l  >300,300,287 

287  JL0W=2 

288  JHI=NAC(I> 

DO  293  J=JL0W,JH1 
L = 1 

289  IFdACTd,  J>  .NE.ATYPE(L>)GO  TO  291 
PLREQCL>=PLREQCL>+ACN01 (I, J>+C 
HRSREQCL>=HRSREQ(L>+BCFHd,  J>*C 

GO  TO  293 

291  L=L+1 

IF<L-K>289,289,292 

292  K=K+1 

ATYPE(K>=lACTd,  J> 

PLriEQ(K>=ACN01 (I, J>+C 
HRSREQ  < K > =BCFH  Cl , J) +C 

293  CONTINUE 
300  CONTINUE 
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3563 

3583 

3603 

3623 

3643 

3663 

3683 

3703 

3723 

3743 

3763 

3783 

3803 

3823 

3843 

3863 

3883 

3903 

3923 

3943C 

3963 

3983 

4003 

4023 

4043 

4063 

4083 

4103C 

4123 

4143 

4163C 

4183 

4203 

4223 

4243 

4263 

4283 

4303C 

4323 

4343 

4363 

4383 

4403 

4423 


L1«K 

IF(K.EQ.0)N0ACal 
DO  301  I«16»21 
lX-I-15 

1F(TENAC(IB#IX).LT..01 )G0  TO  301 
K-K+1 

ATYPE ( K ) = I ATYPE ( 1 ) 

PLREQ(K)»TENAC(IB,IX) 

301  CONTINUE 
KF»0 

DO  310  I-U3 
310  FUREQ(IB«I )sO. 

DO  350  1-1/NPH 
C«BPH(IB,I) 

IF<C-. 01 >350,350,315 
315  IFCNACa  ) .EQ.OIGO  TO  350 
JHI=NAC(1 > 

DO  345  IA«1,JHI 

CALL  MASK3(IAFT(I,IA>,I0P,MASKX) 

- -VALIDATE  FUEL  TYPE 

DO  320  IT«1,3 

IF(GASNAM(IT> .EQ.IOPIGO  TO  325 
320  CONTINUE 

PRINT  322,IAFT<I,IA),I 

322  FORMAT </”  ♦♦  FUEL  NAME*  ’SAA,"  IN  PHASE  ", 
A UNKNOWN  TYPE"//) 

GO  TO  345 

- -FOUND  VALID  FUEL  TYPE.  TYPE  NUMBER  IT 
325  BF1C»BF1(I,IA)*C 

IFCKF.EQ.O)GO  TO  340 

- -COMPARE  WITH  FTYPE  LIST 

DO  335  J-1,KF 

IF(IAFT(I,IA).NE.FTYPE<J>)GO  TO  335 
G AREQ ( J ) »G AREQ ( J > +BF 1 C 
FUREQ(IB,IT)»FUREQCIB,IT)+BF1C 
GO  TO  345 
335  CONTINUE 

- -ADD  NEW  FUEL  TYPE  TO  LIST  IN  FTYPE 
340  KF«KF+1 

FTYPE<KF>»IAFT(I,IA) 

GAREQ(KF>«BF1C 
FUREQ(IB,IT)-BF1C 
345  CONTINUE 
350  CONTINUE 
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A4A3  DO  372  I=16#21 

4463  IK=I-15 

4483  J=IFIX(AOMtI >+.005) 

4503  372  FUREQ< IB, J)=FUREQ( IB, J)+TENAC( IB, IK)*FLCST( I ) 

4523  IFCNODETL.EQ.l )G0  TO  375 

4543  PRINT  619 

4563  PRINT  620, C ATYPEC I ) , PLREQ ( I ) , I = 1 , K) 

4583  375  DO  380  1=1, K 

4603  DO  380  J=l,15 

4623  IF(ATYPE(I).NE.IATYPE( J))GO  TO  380 

4643  ACREQdB,  J)=PLREQ(I  ) 

4663  ACFHdB,  J)=HRSREQ(I  ) 

4683  380  CONTINUE 

4703  DO  385  1=16,21 

4723  J=I-15 

4743  385  ACREO d B, I ) =TENAC d B, J) 

4763  IF(NODETL.EQ.l )G0  TO  390 

4783  PRINT  621 

4803  PRINT  622,(FUREQ(IB,I ),I=1,3) 

4823  GO  TO  400 

4843  390  WAG=GAREQd  )*1  .E-6 

4863  IF(NOAC.EQ.l )G0  TO  398 

4BB3  PRINT  660,NASNAMdB),TSTUdB),SUM3,TNAS(IB), 

4903  &TOFFdB),TENLdB),TCIVdB),TBASdB),ATYPE(  1 ),PLREQ(  1 ), 

4923  *FrYPE<n,WAG 

4943  IF(L1 .EQ.l )G0  TO  400 

4963  DO  395  J1=2,L1 

4983  WAG=GAREQ( Jl)*l .E-6 

5003  IFC (K.GE. Jl) .AND. (KF.GE. J1 ) >PRINT  66 1 , ATYPE( J1 ) , PLREQ( J1 ) , 

5023  AFTYPE( Jl J, WAG 

5043  IF((K.LT.J1).AND.(KF.GE.J1))PRINT  662, FTYPE( Jl ) , WAG 

5063  IF((K.GE.J1).AND.CKF.LT.J1))PRINT  663,ATYPEC Jl ),PLREQ( Jl ) 

5083  395  CONTINUE 

5103  GO  TO  400 

5123  398  PRINT  660,  NASNAMCI B ) , TSTUd  B ) , SUM3,  TNAS  dB  ) , TOFFd  B ) , 

5143  *TENLdB),TCIVdB),TBASdB) 

5163  N0AC=0 

5183  400  CONTINUE 

5203  PRINT  609 

5223  410  INPUT, I OP 

5243  IFdOP.EQ.IYES)GO  TO  502 

5263  IFdOP.EQ.NO)CHAIN  "PART4*" 

5283  PRINT  628 
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5303 

5323 

1 5343 

5363 
5383 
5403 

. 5423 

5443 
I 5463 

5483 
5503 
5523 
5543 
5563 
5583 
5603 
5623 
5643 
5663 
5683 
5703 
5723 
5743 
5763 
5783 
5803 
5823 
5843 
5863 
5883 
5903 
5923 
5943 
5963 


GO  TO  410 
502  CHAIN  ”PART3*" 

609  FORMATt//”  REALLOCATE  PHASES(Y#N>") 

619  FORMAT ( //14H  AIRCRAFT  DATA/ 1 X4HT YPE  4X3HN0.> 

620  FORMATC 1XA4«2XF5.0> 

621  FORMATC  //lOH  FUEL  DATA/1X4HTYPE2X7HGALL0NS) 

622  FORMAT (IX" JET  "1XE9 .3/lX”AGAS”lXE9 .3/lX"HEL0” 1XE9 .3) 

628  FORMAT( 1X24HINVALID  REPLY TRY  AGAIN) 

650  F0RMAT(A4«5E12.6/4E12*6«I 1/6E12.6/6E12.6/E12.6) 

654  FORMATC 75A1)  j 

655  F0RMAT(A4«6E12.6/6E12.6>  1 

660  FORMATC 1XA4«F6 .0#F7 .0«F7.0« 3F6 .0«F7.0« 1XA4«F5 .0* 1XA4,F7 .2)  j 

AF4.0«A4«1X1PE8.3) 

661  F0RMAT(51XA4«F5*0«1XA4«F7.2) 

662  F0RMAT(61XA4«F7.2) 

663  F0RMAT(51XA4«F5.0) 

665  FORMATC 1X”BASE  LOADING  SUMMARY”/1X”*PERS0NNEL”38X 
*3X"*AIRCRAFT  ♦FUEL"/6X”STD.  "12C 1H-)"BASE  TOTALS  " 

&12C1H>)10X"MILLI0N  GAL."/1X"NAS  LOAD  PHASE 

4NAS  OFF  ENL  CIV  TOTAL  TYPE  NO.  TYPE  AMOUNT”)  I 

715  F0RMATC///1X"NAS--"A4/1X55HPERS0NNEL  STD. LOAD 
6 OFFI 

ACERS  ENLISTED  CIVILIAN  TOTAL) 

716  FORMATC1X*3A4,F6.0#F10.0#F9.0#9X#F9.0) 

718  FORMATC 13H  ALL  PHASES  «F6.0*F10.0«F9.0«9X«F9.0/) 

719  FORMATC 13H  TENANTS  #6X#F10.0#3F9.0) 

720  FORMATC 13H  NAS  PERS.  * 6X»F10.0#3F9.0/ 

A 13H  TOTAL  BASE  «6X«F10.0#3F9.0) 

725  FORMATC"  DO  YOU  WANT  TO  USE  THE  STANDARD  PHASE  TO  BASE" 

A,"  ALLOCATION") 

730  FORMATC"  STANDARD  ALLOC ATI  ON" //1X"PHASE"1X"BASE"1X"PERC ENT") 

735  F0RMATC5X«I2«AUA4«A1«F3.2) 

740  F0RMAT(3X«I2«2X«A4«4X«F3.2) 

END 
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5983 

6003C- 

60S3C 

6043C 

6063 

6083 


SUBROUTINE  MASK3C lALPHA# IFIRST#MASKX) 

-RETURNS  WITH  FIRST  CHARACTER  OF  lALPHA  IN  IFIRST 
TREAT  ALPHA  VARIABLE  AS  INTEGER.  MASKX  KNOCKS  OFF 
LAST  27  BITS  BY  INTEGER  DIVISION. 

I F I RST  a (I ALPHA /MASKX ) *MASKX 
return; END 
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FIGURE  13.1.  PART3  FLOW  CHART 
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XIV.  PROGRAM  PART4 


14.1  The  following  addition  was  made  to  PART4  to  ensure  that  zeros  are 
initially  in  the  array  XBRl. 


371-^1 

DO  16 

I = l»9 

3716 

DO  16 

c 

II 

3718 

DO  16 

K=l*/l 

37PO 

16  XBRl ( I 

^ J,K)= 

i 

I 


XV.  PROGRAM  PARTY 


15.1  The  following  changes  were  made  to  program  PARTY  to  eliminate  the 
possibility  of  a zero  subscript  occurring  at  line  12671.  This  has  happened 
on  an  NFO  run  where  the  runway  requirements  are  very  small  at  the  PHANTOM 
base. 

10R35  M»0 

12515  IFtMT.EG.OlGO  TO  A50 


XVI.  PROGRAM  PARTS 


16.1  The  following  changes  and  corrections  were  made  to  program  PARTS. 

1P65  PHINT^"TYPE  1 FOP  0AM  COST  SUM.  A TOTAL  SYSTEM  COST(TSC)  ONLY" 

1R55  DO  BO  J=1,P1 

P015  BP  BP(6jNn)=(PUP/100)*FAPWCl ) 

PIPS  DO  IPO  J=1.P1 

The  first  line  is  the  new  print  option.  The  next  three  lines  correct  previous 
errors . 
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XVII.  PROGRAM  PART? 


17.1  The  following  additions  were  made  to  program  PART?  to  print  a new 
cost  total. 

3177  X=0. 

r-,607  IF(  ISVTCH(9)  .FO.l)  JUMP  = 1 

6700  IF<ISWTCHC9)  .E0.f?)JUMP=l 

6909  ADD 1=0 

6911  ADDP=0 

6913  ADD3=0 

6915  ADDA=0 

6930  ADD1=ADD1+CNAACCI ) 

6950  ADD2=ADD2+T0TAC(I) 

7030  ADD3=ADD3+C0ST1 

7050  ADDA=ADDA+C0ST2 

7190  IF<  JUMP.E0.0)PR1NT  603#ADDUADD2,DEFAC»  ADD3»ADDA, TC05T 

7670  603  FORFiATC"  TOTAL" #F7  .0> F9  .0>FR  .0#  3F9 .0  ) 

Line  312?  was  deleted  and  line  31??  is  a correction. 

1?3 


XVIII.  PROGRAM  PART9 


18.1  The  following  changes  and  additions  were  made  to  PART9  to  print  out 
a new  cost  total. 


1479 

IF(ISWTCH<9> .EO.l )ISA»1 

1«31 

T0TAL1=0 

1H33 

TOTAL2=0 

1335 

T0TAL3=0 

1R37 

T0TAL4=0 

5929 

TOTALl =T0TAL1 +C0ST2 

2931 

T0TAL2=T0TAL2+C0ST3 

2933 

T0TAL3=T0TAL3+AC0ST 

2935 

T0TAL4aT0TAL4+BStJPP 

2937 

80  SUB3=SUB3+SUB1 

2969 

PRINT  6 1 6 # T OT AL 1 # T OT ALB # T OT AL3 * T OT AL4 , 

SUB3 

3769 

600  FORMAT <1X"SUMMARY  0 * M C0ST*V/1X”NAS 

•9 

3789 

A**MILITARY  A/C  FUEL  A/C  0«M 

BASE" /I  IX 

3809 

« ”P«  A"  « 1 0X**T0TAL"  « 6X”T0T  AL"  « 5X"SUPP  ORT” 

»5X”T0TAL"> 

4109 

614  FORMAK 1XA4«2XF10.1«1X4( IXFlO.l >> 

616  FORMAK  IX”TOTAL’*#  IXFIO.  1 • 1X4(  IXFIO  . 1 ) > 

175 


fRSCKDXlO  FUM  BUNCaiOT  FIIMKD 


4149 


